try ReDim before the loop:

Sub sistence()
x = 100
ReDim aCom(2, x - 2)
End Sub

--
Gary''s Student - gsnu200906


"QB" wrote:

I am trying to generate an array on the fly

For x = 2 To flstRow
aCom(1, x - 2) = Range("A" & x).Value
aCom(2, x - 2) = Range("M" & x).Value
Next x

but when I run the code I keep getting a Subscript out of range error and it
highlights the x-2 part of my code. How can I loop through the row of a
table and populate a 2 dimensional array with the values?

QB