this may be what you're looking for

Sub test()
Dim ws As Worksheet
Dim arr As Variant
Dim rng As Range
Set ws = Worksheets("Sheet1")
arr = ws.Range("A1:P1000")

End Sub


--


Gary

"Kalle" wrote in message
...

Hi

I know that it is possible to copy a array t o a worksheet but I can't
find out if it's possible to copy a worksheet into an arry?

Thanks in advance

*** Sent via Developersdex http://www.developersdex.com ***