Example to copy to the next sheet in the same place

Sub Test()
For Each myarea In Selection.Areas
With myarea
.Copy Destination:=.Parent.Next.Range(.Address)
End With
Next myarea
End Sub


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"hke" wrote in message ...
Hi,

Say you have several non-adjacent cells selected. How can you
copy&paste the contents of these cells with the pasted cells also
non-adjacent?



------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~ View and post usenet messages directly from http://www.ExcelForum.com/