Formula To Transfer All Worksheets In Directory (only Single Worksheet) Into One Workbook

I am trying to quickly transfer all worksheets in a directory into one worksheet listing all worksheet names in the tabs in number order.

The formula have so far is below. But it does not name the individual tabs as the worksheet names in no order.

Sub GetSheets ()
Path = "Y:
Filename = Dir(Path & "*.xls")
Do While filename ""
Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
Sheet.Copy After:=ThisWorkbook.Sheets (1)
Next Sheet
Workbooks (Filename) . Close
Filename = Dir ()
Loop
End Sub

The worksheets appear as follows 1982-001, 1982-003 up to 1982-250 ( I want them in single workbook but as multiple tabs in number order)