View Single Post
  #6   Report Post  
JE McGimpsey
 
Posts: n/a
Default

One way:

If you're trying to copy from sheet "1" to Sheet "4" and subsequent
sheets, and they're in order:

Public Sub CopySkipPaste()
Dim rCopy As Range
Dim i As Long
Set rCopy = Sheets("1").Range("G14")
For i = 4 to Worksheets.Count
rCopy.Copy Destination:=Sheets(i).Range("G14")
Next i
End Sub


In article ,
"Chris E." <Chris wrote:

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