Ok i havnt tried this. But....

Dim x as integer
Dim letter as integer
Dim y as integer
Dim z as integer

For x = 1 to 26