I think Bob meant this:

Dim area As Range
For Each area In Range("A1:A6,B1:B3,G2:J4,C16:D16").Areas
area.Copy Destination:=Worksheets("Sheet1").Range(area.Addre ss)
Next area

Without the .areas, it'll do it cell by cell (which will work).

but judging by the variable name....

Bob Phillips wrote:

Hi James,

You can't copy multiple selections in one go, so try something like

For Each area In Range("A1:A6,B1:B3,G2:J4,C16:D16")
area.Copy Destination:=Worksheets("Sheet1").Range(area.Addre ss)
Next area

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"James" wrote in message
...
Hi

How can I copy Multiple Selection selected by user to copy
to a new sheet using VBA. Excel 2002, win 2k
Please advise

Thanks a lot
James

--

Dave Peterson