Try this

Sub Test()
Dim sh As Worksheet
Dim rng As Range
Application.ScreenUpdating = False
Set rng = Sheets("Sheet1").Range("R17:X47")
For Each sh In ThisWorkbook.Worksheets
If sh.Name < "Sheet1" Then
rng.Copy sh.Range("Y17")
End If
Next
Application.ScreenUpdating = True
End Sub


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"Murphy" wrote in message om...
I am trying to copy ("R17:X47") from Sheet1 and paste it in
("Y17:AE47") in each of the other Sheets. Any help is appreciated.

Thanks,
Murphy