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