Most have seemed to suggest

Private Sub CommandButton1_Click()
MsgBox "Please Call In"
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.Quit
End Sub

This won't work. the code stops execution after the ActiveWorkbook.Close
(since this is a commandbutton, the workbook with the code will be the
activeworkbook).

John Wilson cleverly suggests you **can** replace Activeworkbook.Close with
Application.Quit - no option here - you must if you want the application to
end.

--
Regards,
Tom Ogilvy


"Tom Ogilvy" wrote in message
...
Private Sub CommandButton1_Click()
MsgBox "Please Call In"
ActiveWorkbook.Save
Application.Quit

End Sub

"David W" wrote in message
...
How do I get excel to close all the way out
I got this code to almost to do it but it don't

Private Sub CommandButton1_Click()
MsgBox "Please Call In"
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub