Excel workbook cannot close

[ChanL]

I have written a code to save changes to m excel workbook and close it.
The code works fine except for the close part
The workbook is close but the excel window still there and I still need to close it manually.
Please advice.
this is my code:

Sub done()

ThisWorkbook.Close savechanges:=True
Application.Quit

End Sub

i also insert a screenshot of my situation

 

[jasonb75]

I think that the code will stop running once you close the workbook. I would try something like this

Sub done()
ThisWorkbook.Save
If Application.Workbooks.Count = 1 Then
    Application.Quit
Else
    ThisWorkbook.Close
End If
End Sub

 

[ChanL]

I think that the code will stop running once you close the workbook. I would try something like this

Sub done()
ThisWorkbook.Save
If Application.Workbooks.Count = 1 Then
    Application.Quit
Else
    ThisWorkbook.Close
End If
End Sub

thanks! this work perfectly! You have saved my day