The code i have below erases the data when it goes to the next i , how do i store this information to use a later time?
Code:
Option Base 1
Sub test()
Dim leasenumber As Variant
Dim leaseitems As Variant
Dim l As Variant
For i = 1 To 10
leasenumber = Cells(i, 1)
leaseitems = Cells(i, 2)
l = Cells(i, 3)
ReDim myarray(leasenumber, l) As Variant
myarray(leasenumber, l) = leaseitems
ReDim myarray(leasenumber, l) As Variant
'ReDim Preserve myarray(i, i + i)
Next
End Sub