vincecodegreeen
New Member
- Joined
- Jan 17, 2014
- Messages
- 39
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
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