Hi Eric.
One way is application.quit
Regards,
Benito
Barcelona
Try
Application.DisplayAlerts = False
Application.Quit
--
Jacob
Hi.
If you want to save all the workbooks opened:
Sub quit()
For Each ws In Workbooks
a = ws.Name
ws.Save
Next
Application.quit
End Sub
If you want to save only the active workbook:
Sub quit()
ActiveWorkbook.Save
Application.quit
End Sub
Regards,
Benito
Barcelona
Spain