I am getting a run time error 1004. Can anyone help me with it? Consider me a noob at excel

[AmanBesara]

Sub GetSheets()

' Write in the specific path where the file is saved in the path


Path = "D:jjjjj\Report 2019-20\"

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

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


This is the following code. I am basically trying to copy multiple excel files in one excel file. My error "Sheet.Copy After:=ThisWorkbook.Sheets(1)" . Can anyone help me debug it?

 

[jasonb75]

Are there any hidden sheets in the workbook that you're copying from?

 

[AmanBesara]

Are there any hidden sheets in the workbook that you're copying from?

No there aren't

 

[Michael M]

Is this a typo
Path = "D:jjjjj\Report 2019-20\"

should it be
Path = "D:\jjjjj\Report 2019-20\"

 

[AmanBesara]

Is this a typo
Path = "D:jjjjj\Report 2019-20\"

should it be
Path = "D:\jjjjj\Report 2019-20\"

Yes I have coded as this one
"D:\jjjjj\Report 2019-20\"

When I debug the error is in this line
Sheet.Copy After:=ThisWorkbook.Sheets(1)

I am unable to figure out

 

[jasonb75]

What happens if you change Sheet to ws

Change it in the lines above and below as well. I believe that Sheet is a reserved keyword so it could be conflicting.