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