Step through the alphabet with ForNext loop

[jwright650]

How do you go about looping through the alphabet Using a For/Next loop?....I can step through using numbers, but can't seem to declare the correct variables and steps to do the alphabet...
Tried this...but it's wrong. What I was trying to do was get 1A, 2A, 3A through 5A.....down column A

 
Sub NestedForLoops()
    Dim r      As Long
    Dim alpha      As String
    alpha = "A"
    For r = 1 To 5 Step 1
        For alpha = "A" To "E" Step 1
            Cells(r, 1).Select
            Cells(r, 1).Value = CStr(r) & CStr(alpha)
        Next alpha
    Next r
End Sub

[Cutter]

With the code #'s maybe.

CODE("A") is 65, CODE("B") is 66, etc

[jwright650]

With the code #'s maybe.

CODE("A") is 65, CODE("B") is 66, etc

I thought about using the Char#'s but wasn't sure. I was able to get dates to advance a day at a time....just have never been able to get the alphabet to do that.

[jwright650]

@Cutter:
The Chr#'s work...now I just need to figure out the for/next nesting to get it to do what I needed. Thanks for the nudge in the right direction.

[Cutter]

I'm not good at VBA so I can't really help you but something like

Chr(64 + r)

maybe?

[Cutter]

I think this is what you want - adjusted what you had

Sub NestedForLoops()
    Dim r      As Long
    For r = 1 To 5 Step 1
            Cells(r, 1).Select
            Cells(r, 1).Value = CStr(r) & CStr(Chr(64 + r))
    Next r
End Sub