在所有工作表上运行我的宏

Question

I have to prepare a short Macro. I multiple worksheets in a workbook and I wrote a macro to import a range from a different workbook, but I want my macro to loop over all worksheets. I read a lot about it but still I think I am missing some basic knowledge on vba . Could someone please help me to put this macro in a loop?

Sub AddHeader()
    current = ActiveWorkbook.Name
    Range("A1:C96").Select
    Selection.Cut Destination:=Range("A55:C150")
    Windows("MIP_Ordering_Header.xlsx").Activate
    Range("A1:H54").Select
    Selection.Copy
    Windows(current).Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
    ActiveSheet.Paste
    Cells(53, 1).Value2 = "Plate Name:" & ActiveSheet.Name
End Sub

Answer 1

I would do something similar to below. Copy the range first, and then loop through the sheets in the active workbook:

Sub AddHeader()

Dim WS_Count As Integer
Dim I As Integer

'first get the data to copy
Windows("MIP_Ordering_Header.xlsx").Activate
Range("A1:H54").Select
Selection.Copy
ActiveWorkbook.Close

'get all the active sheets
WS_Count = ActiveWorkbook.Worksheets.Count

' Begin the loop.
For I = 1 To WS_Count
    'refer to the curent workbook using the "I" variable
    ActiveWorkbook.Worksheets(I).Range("A1").Select
    'the rest of your code...
Next End Sub

Edit: How to copy paste with variables:

Sub CopyPaste()

Dim src1 As Variant
Dim src2 As Variant

src1 = Sheets(1).Range("A1:A2").Value
src2 = Sheets(1).Range("A4:A5").Value

Sheets(1).Range("B1:B2").Value = src1
Sheets(1).Range("B4:B5").Value = src2 End Sub