Kill Workbook Error

[Captain_Conman]

Hello! I am trying to write a macro that will delete the entire workbook from my desktop if both sheets "100" and "MISC" have no data.

I keep getting a runtime error on the "Kill wb" line. Any thoughts?

Sub Macro1()
Dim wb As Workbook
Dim Test100 As Object
Dim TestMISC As Object
Set wb = Workbooks.Open("C:\Users\qucso1\Desktop\Test.xlsx")
Set Test100 = Sheets("100").Range("A2")
Set TestMISC = Sheets("MISC").Range("A2")


If IsEmpty(Test100) = True And IsEmpty(TestMISC) = True Then
    wb.Close SaveChanges:=False
    Kill wb
End If
End Sub

 

[Foz1980]

Try;

[COLOR=#252C2F][FONT=Helvetica]Kill "[/FONT][/COLOR][COLOR=#333333]C:\Users\qucso1\Desktop\Test.xlsx[/COLOR][COLOR=#252C2F][FONT=Helvetica]"[/FONT][/COLOR]

 

[Captain_Conman]

Works great! Thank you!

 

[Foz1980]

You're welcome