Sub ArrayDemo() Dim myArray(9, 2) As Integer Dim I As Integer Dim J As Integer Dim myArray(99, 99) As Integer For J = 0 To 99 'Column index For I = 0 To 99 'Row index myArray(I, J) = Cells(I + 1, J + 1).Value Next I Next J End Sub