Nested For Each loop won't work; can anyone help?

[vincecodegreeen]

I am trying to paste the same data onto each sheet in the workbook in the same places. I have recorded the actions for the first sheet and tried to loop through the others using a For Each loop. Can anyone tell me what is wrong with the code?
Sub worksheettest()
Dim wbk As Workbook
Dim wks As Worksheet
Set wbk = ThisWorkbook
For Each wks In wbk.Worksheets
Macro1
Next wks


End Sub
Sub Macro1()
'
' Macro1 Macro
'
x = wks.ThisWorkbook + 1




Worksheets("Sheet 1").Activate
Range("C1").Select
Selection.Copy
Sheets("sheet x").Select
Range("P1").Select
ActiveSheet.Paste
Range("H2").Select
ActiveSheet.Paste
Range("X2").Select
ActiveSheet.Paste
Range("D3").Select
ActiveSheet.Paste
Range("L3").Select
ActiveSheet.Paste
Range("T3").Select
ActiveSheet.Paste
Range("AB3").Select
ActiveSheet.Paste
Range("B4").Select
ActiveSheet.Paste
Range("F4").Select
ActiveSheet.Paste
Range("J4").Select
ActiveSheet.Paste
Range("N4").Select
ActiveSheet.Paste
Range("R4").Select
ActiveSheet.Paste
Range("V4").Select
ActiveSheet.Paste
Range("Z4").Select
ActiveSheet.Paste
Range("AD4").Select
ActiveSheet.Paste
End Sub


Thanks

 

[Michael M]

What about

Sub Macro1()
Dim ws As Worksheet
Sheets("Sheet1").Range("C1").Copy
For Each ws In Worksheets
   If ws.Name <> "Sheet1" Then
        ws.Activate
        Range("H2,X2,D3,L3,T3,AB3,B4,F4,J4,N4,R4,V4,Z4,AD4").Select
        ws.Paste
    End If
Next ws
End Sub