View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.newusers
Ron de Bruin
 
Posts: n/a
Default copy some data to next sheet

Maybe you want this (there is no error check in this example if you are in sheet 100)

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


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Douglas groom" <Douglas wrote in message
...
My sheets are named 1,2,3....100
at any time i may be located at any sheet.
I wish to copy selected values to the same position from sheet "m" to the
next "n" sheets where n is not going to run past 100. The from and to
positions are concrete and the same. If you want colour they are mens
wedding suit items and party name.