Snasui Excel Forum

Code: Select all

Sub GetSheets()

Path = "C:\Users\**************\"

Filename = Dir(Path & "*.xlsx")

Do While Filename <> ""

Workbooks.Open Filename:=Path & Filename, ReadOnly:=True

For Each Sheet In ActiveWorkbook.Sheets

Sheets("Booking").Copy After:=ThisWorkbook.Sheets(1)

Next Sheet

Workbooks(Filename).Close

Filename = Dir()

Loop

End Sub

Code: Select all

'Other code
For Each Sheet In ActiveWorkbook.Sheets
    If Sheet.Name = "Booking" Then
        Sheets("Booking").Copy After:=ThisWorkbook.Sheets(1)
        Exit For
    End If
Next Sheet
'Other code