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