I have so code (to array) and I use REDIM Preserve to make bigger
dynamic array, VBA give me error nr 9
subscribt out of range.
What i do wrong with redim preserve?

'this is that code

For int2 = 1 To 100
If int2 = 1 Then
ReDim tbl2(1 To 1, 1 To 4)
tbl2(int3, 1) = tab1(int2, 1)
int3 = int3 + 1
Else
ReDim Preserve tbl2(1 to int3,1 to 4)
tbl2(int3, 1) = tab1(int2, 1)
int3 = int3 + 1
End If
Next int2


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!