Increment through A-Z

[Max1mum2]

is it possible to Loop through A-Z rather than 1- 26?

- maximum

 

[Databaseguy]

This is the best I could do.

Private Sub TestLetters()
Dim i As Integer
For i = Asc("A&quot To Asc("Z&quot
Debug.Print Chr(i)
Next i
End Sub
Tyrone Lumley
augerinn@gte.net

 

[JimInKS]

You can do something like this:
Dim i As Integer
For i = Asc("A&quot To Asc("Z&quot
Debug.Print i, Chr(i)
Next i

This will print a list of ASCII value, character pairs like :
65 A
66 B
...
90 Z

 

[Max1mum2]

Great. thanks alot!

- Maximum