For Each loops with Arrays

[evanair]

I'd like to use a for each loop to step through the elements of a single-dimensional array. I know I can accomplish this using the Ubound function, because I've done it this way for years.

But I've always wanted to be able to structure it something like this, but I just don't know the right syntax:

Dim aSingle(10) as string
Dim myString$

... array loaded with strings, then:

For each myString$ in aSingle.???
...
Next myString$


So would anything work in place of the 3 question marks (???) to make this code work? Thanks for looking.

 

[Norie]

Have you tried it without anything for the ??? and no dot(.) qualifier.

 

[Scott Huish]

You will also need to declare myString as type Variant

Sub test()
Dim mystring As Variant, asingle(10) As String, x As Integer
For x = 0 To 10
    asingle(x) = Chr(65 + x)
Next x

For Each mystring In asingle
    MsgBox mystring
Next
End Sub

 

[evanair]

works

Thanks for the tip about using a variant data type. This works just as I expected.

It feels like reaching finally reaching an itch you've had for about a year.

-em