try this idea

Sub copytosheets()
For i = 3 To Sheets.Count
Sheets(i).Range("a1") = Range("a1")
Next
End Sub

--
Don Guillett
SalesAid Software

"Chris E." <Chris wrote in message
...
This is probably simple to do, but I don't do this enough to know.

How would I edit this macro to paste to a range of 134 worksheets that are
after two that I do not want to paste to. In this example I have gone to
each worksheet and pasted one at a time.

Range("G14").Select
Selection.Copy
Sheets("2").Select
Range("G14").Select
ActiveSheet.Paste
Sheets("3").Select
Range("G14").Select
ActiveSheet.Paste
Sheets("4").Select
Range("G14").Select
ActiveSheet.Paste