Thank You, Doug, works great!
-JEFF-

"Doug Glancy" wrote:

Jeff,

I believe this does it:

Sub test()
Dim test_array()
Dim first_dimension_count As Long
Dim i As Long

first_dimension_count = Range("A" & Rows.Count).End(xlUp).Row
ReDim test_array(1 To first_dimension_count, 1 To 2)
test_array = Range("A1:B" & first_dimension_count)
End Sub

hth,

Doug

"-JEFF-" wrote in message
...
I need to assign dimension 1 with col A data and dimension 2 with col B
data.
IOW, element 1 would consist of A1, B1, element 2 A2, B2... The number of
rows is not always the same. Can somebody provide an example of code to
accomplish this? Thanks! -JEFF-