Just to add some food for thought...

The array could have been loaded like this...

PricesA_D = Sheets("A-D").UsedRange

... and its dims could have been retrieved like this...

Debug.Print UBound(PricesA_D) & vbTab & UBound(PricesA_D, 2)

-OR-

With Sheets("A_D").UsedRange
Debug.Print .Rows.Count & vbTab & .Columns.Count
End With

To access the data in code you can do something like this...

Dim i&, j& 'as Long
For i = LBound(PricesA_D) To UBound(PricesA_D)
For j = LBound(PricesA_D, 2) To UBound(PricesA_D, 2)
'process each element in Dim2 for each element in Dim1
PricesA_D(i, j) = PricesA_D(i, j)
Next 'j
Next 'i

--
Garry

Free usenet access at http://www.eternal-september.org
ClassicVB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion