Macro to Paste

[Guest]

Hello,

I'm trying to create a macro that would paste items from a sheet, say Sheet1
range A11 to some of the other worksheets, say Sheets5-Sheet10 Range A11.
I came up with the following macro:

Sub PASTEFORMULAS()

Worksheets("Sheet1").Select
Range("A11").Select
Selection.Copy

For i = 1 To Worksheets.Count
Select Case PasteToWorksheets
Case Worksheets(i).Name = "Sheet1" Or "Sheet2" Or "Sheet3" Or "Sheet4"
Case Else
Range("E10").Select
ActiveSheet.Paste
End Select
Next i
End Sub

That macro generates an error and the line Case Worksheets(i).Name =
"Sheet1" Or "Sheet2" Or "Sheet3" Or "Sheet4" is highlighted. I did not enter
any code for the case when the worksheet is Sheet1, Sheet2, Sheet3, or Sheet4
because I don’t want to paste items into those worksheets. I'm not sure how
to fix this.

Any advice you could give would be greatly appreciated!

Sincerely,

Magnivy

 

[Guest]

Dim Sheet As Worksheet

For Each Sheet In ActiveWorkbook.Sheets
If Sheet.Name <> "Sheet1" Then Sheet.Range("A11").Formula =
Sheets("Sheet1").Range("A11").Formula
Next Sheet