copying non-adjacent cells

H

hke

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?
 
R

Ron de Bruin

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
 
Top