copying non-adjacent cells

  • Thread starter Thread starter hke
  • Start date Start date
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?
 
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
 
Back
Top