Error 424 Object Required trying to delete worksheet

[sharky12345]

I'm using this to save a copy of the existing workbook, open it and then I'm trying to delete specific sheets in the newly created workbook but I'm getting an error 424, object required on the line that deletes the worksheet. Anyone help me understand why?

Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False

ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & "\Test Save.xlsm"

SavedWB = ThisWorkbook.Path & "\Test Save.xlsm"

Application.Workbooks.Open SavedWB

SavedWB.Worksheets("SETUP").Delete
SavedWB.Worksheets("HISTORICAL").Delete
SavedWB.Worksheets("FULLDATA").Delete
SavedWB.Worksheets("STAFF").Delete
SavedWB.Worksheets("SUMMARY").Activate
SavedWB.Save

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

 

[jasonb75]

Your variable, SavedWB is a string, not a workbook. You need to set it to the correct variable type.

Dim SavedWB As Workbook
Set SavedWB = Workbooks.Open(ThisWorkbook.Path & "\Test Save.xlsm")

 

[sharky12345]

That's done it - cheers!