Dim MyGrid()


MyGrid = Range("B2:D5")

works for me

--
HTH

Bob Phillips

"Charlie" wrote in message
...
Hi,

I can move a 2D array to a range but how do I move a selected range to a
2D
array?

Dim MyGrid() As String

Range("A9").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
MyGrid = Selection.Text

(or)

MyGrid = Range("B2:D5").Text

Thanks