Su
Dim MyArray as Variant
MyArray=Range("A1:F3")
msgbox Ubound(MyArray,1) 'should say 3
Msgbox Ubound(MyArray,2) 'should say 6
Range("F5:K5")=MyArray 'will copy items to this new range

Bob Umlas
Excel MVP

"excel" wrote in message
...
Hi,
is it possible to create an array from all values of all range in a
selection?

Thanks