what is causing this Type mismatch error?

[logandiana]

I am opening a CSV that is in the same folder as the macro workbook.
I am getting an error on the Workbooks.Open line
If I hit debug the file opens and the code continues.
I can throw an On Error Resume Next in there and that solves it, but what is causing the error in the first place?

Dim ISPC, Export As Workbook
Dim Data, Export2 As Worksheet
Sub DoStuff()
Set ISPC = ThisWorkbook
Set Data = ISPC.Worksheets("Data")
Set Export = Workbooks.Open(ActiveWorkbook.Path & "\SalesReport.csv")
Set Export2 = Export.Worksheets(Sheet1)

 

[logandiana]

I figured it out. Needed Worksheets(1) not worksheets(Sheet1)

I am opening a CSV that is in the same folder as the macro workbook.
I am getting an error on the Workbooks.Open line
If I hit debug the file opens and the code continues.
I can throw an On Error Resume Next in there and that solves it, but what is causing the error in the first place?

Dim ISPC, Export As Workbook
Dim Data, Export2 As Worksheet
Sub DoStuff()
Set ISPC = ThisWorkbook
Set Data = ISPC.Worksheets("Data")
Set Export = Workbooks.Open(ActiveWorkbook.Path & "\SalesReport.csv")
Set Export2 = Export.Worksheets(Sheet1)