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.

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.

This is just an example going from Sheet1 to Sheet2. The copied cells don't
have to be connected. Select any combination you choose. You can change it
to go from any sheet to any other sheet:


Sub Macro10()
Dim sx As String
Dim r1 As Range
Dim r As Range
Sheets("Sheet1").Select
s1 = "Sheet1!A1:A10,C1:C10"
Set r1 = Range(s1)
For Each r In r1
sx = "Sheet2!" & r.Address
r.Copy Range(sx)
Next
End Sub
--
Gary''s Student


"Douglas groom" wrote:

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.