Sub CloseAndQuitExcel()
Application.OnTime DateAdd("s", 1, Now), "QuitExcelNow"
End Sub
Sub QuitExcelNow()
Debug.Print "QuitExcelNow"
'Debug.Print Application.Workbooks.Count
ThisWorkbook.Saved = True
'ActiveWorkbook.Close
ThisWorkbook.Close SaveChanges:=False...