Combining multiple excel workbooks into one

Question

I am having trouble with a '424' error code with visual basic.

I am trying to combine hundreds of old excel workbooks into one single workbook, that inlcudes all the sheets from each workbook in a folder directory.

Here is the code i am working with. Any chance you can see

Sub GetSheets()

Dim Sheets As Object

Dim ActvieWorkbook As Object

Path = "C:\Users\xxxx\xxxx\xxxx"

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

Do While Filename <> ""

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

For Each Sheets In ActvieWorkbook.Sheets()

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

Next Sheets

Workbooks(Filename).Close

Filename = Dir()

Loop

End Sub