Just to mention an alternative...

Sub Demo()
Dim MyArray()
MyArray = ActiveCell.Resize(50, 1)

'And...if you wish:

MyArray = WorksheetFunction.Transpose(MyArray)
End Sub

--
Dana DeLouis


"Chad" wrote in message
...
Got it,

I forgot to declare it properly

Dim MyArray(50) as Variant

not

DimArray as Variant