I have used the following without success. The active workbook closes, indeed, but the excel window remains open.
Application.ActiveWindow.Close SaveChanges:
You can try out
ThisWorkbook.Save ThisWorkbook.Saved = True Application.Quit