Sub ArrayWith()
Dim astrNames(5) As String
Dim intCounter As Integer
Dim vntAny As Variant
astrNames(0) = "A"
astrNames(1) = "B"
astrNames(2) = "C"
astrNames(3) = "D"
For Each vntAny In astrNames
Debug.Print vntAny
Next vntAny
End Sub