consolidate tabs from multiple workbooks into one new workbook

[utensil]

I have a folder with approximately 20 files in it. Each file contains a different amount of tabs. Looking for a way to open each file and then grab all the tabs and consolidate into one 'master' file.

 

[JLGWhiz]

If the file path is the same for all the workbooks as the file which will host the code then this will work.

Sub t()
Dim wb As Workbook, sh As Worksheet, fName As String, fPath As String, t As Double
fPath = ThisWorkbook.Path 'If files are in a different folder substitute that path fot 'ThisWorkbook.Path
If Right(fPath, 1) <> "\" Then fPath = fPath & "\"
fName = Dir(fPath & "*.xl*")
    Do While fName <> ""
        If fName <> ThisWorkbook.Name Then
            Set wb = Workbooks.Open(fPath & fName)
            For Each sh In wb.Sheets
                sh.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
                'Add a delay in case sheets contain voluminous data
                t = Timer + 0.2
                Do While Timer < t
                    DoEvents
                Loop
            Next
            wb.Close False
        End If
        fName = Dir
    Loop
End Sub

 

[utensil]

Thanks, this did what I needed it to and helped me with some additional code that I was stuck on.

 

[JLGWhiz]

Thanks, this did what I needed it to and helped me with some additional code that I was stuck on.

You're welcome,
regards, JLG