Как получить имена файлов в название «вкладки»?(Название листа АКА)

Question

Этот код превращает пакетную миграцию файла в 1 мастер-файл.я хочу иметь возможность сохранить имена вкладок (sheet1, sheet2 и т. д.) в качестве имен файлов.

Sub GetSheets()

'Update ExcelJunction.com

Path = ""

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

Do While Filename <> ""

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

For Each Sheet In ActiveWorkbook.Sheets

Sheet.Copy After:=ThisWorkbook.Sheets(1)

Next Sheet

Workbooks(Filename).Close

Filename = Dir()

Loop

End Sub