Just to add...
Using a dynamic array instead of a fixed size array allows one
to assign to the array (provided you are using a later version of Excel)...

Public Sub Suffy()
Dim vColumns() As Variant
Dim i As Integer
ReDim vColumns(0 To 6)

vColumns = Array("A", "B", "C", "D", "E", "F", "G")
For i = 0 To 6
Debug.Print vColumns(i)
Next i
End Sub
-----------
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware