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.