merge multiple files and all sheets

[nldstorm]

Need your help!

Do you know what the macro would be if I want to merge different sheets (having the same amount of rows but columns may be different) for all open files? With other words, I will have 5 files open, some with 5 sheets and some with one sheet and would like to have all columns out of these 5 files returned into one master sheet.

Thanks!

 

[Domenic]

For each opened workbook, except the active workbook, the data from each sheet will be copied to the active sheet...

Option Explicit

Sub test()

    Dim wkbDest As Workbook, wkb As Workbook
    Dim wksDest As Worksheet, wks As Worksheet
    
    Application.ScreenUpdating = False

    Set wkbDest = Application.ThisWorkbook
    Set wksDest = wkbDest.ActiveSheet
    
    For Each wkb In Workbooks
        If wkb.Name <> wkbDest.Name Then
            For Each wks In wkb.Worksheets
                wks.UsedRange.Copy Destination:=wksDest.Cells(wksDest.Rows.Count, 1).End(xlUp)(2)
            Next wks
        End If
    Next wkb
    
    Application.ScreenUpdating = True
    
End Sub