Sub SAVEEXIT()
Application.ActiveWorkbook.Save
Application.Quit



End Sub

Note this procedure doesn't give the user the option to
save..it just does it.

-----Original 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


.