Loop using string

[in_d]

I have just had a thought which would make my life a lot easier, but don't have a clue where to start..
Is it possible to apply the following principle for a loop to use a string instead of numbers? For example;

For i = 1 to 10
msgbox i
Next i

Could I do the same using letters of the alphabet? I don't know how it would work, but something like.

For i = a,b,c,d,e,f,g,h
msgbox i
Next i

Thanks in advance

 

[in_d]

I have exhausted the technique of using a case select argument and assigning a different string based on the

Dim aStr as String
Dim i as Integer
 
For i = 1 To 27
Select Case i
    Case 1
        aStr = "CJ"
    Case 2
        aStr = "CJ"
    Case 3
        aStr = "CJ"
End Select
 
Msgbox aStr
Next i

I was just hoping there was a tidier way to do it..?

 

[james_lankford]

? ? ? maybe something like this

Sub doit()
 
    Dim i As Integer
    Dim alpha As String
    Dim s As String
 
    Dim alpha_first As Integer
    Dim alpha_last as integer
 
    alpha_first = Asc("a")
    alpha_last = alpha_first + 25
 
    For i = alpha_first To alpha_last
        alpha = Chr$(i)
        s = s & alpha
    Next
 
    MsgBox s
 
End Sub

 

[Weaver]

you could also use:

for each str in array("A","B","C")
  debug.print str
next

 

[Scott Huish]

You could also do this:

Sub test()
Dim i As Long, t
t = Array("A", "B", "C", "D", "E", "F", "G")
For i = LBound(t) To UBound(t)
    MsgBox t(i)
Next
End Sub