Problem copying range and pasting to multiple sheets

  • Thread starter Thread starter Murphy
  • Start date Start date
M

Murphy

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
 
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
 
Back
Top