Sub arrayInit() Dim I As Integer Dim myArray(10) As Integer For I = 0 To 9 myArray(I) = Cells(I + 1, "A").Value Next I End Sub