Sub ArrayLoop() Dim avColors As Variant Dim vItem As Variant avColors = Array("Red", "Green", "Blue") For Each vItem In avColors Debug.Print vItem Next End Sub