Completely Exit Excel Macro

[Guest]

How do I get Excel to actually completely exit? Below is the code I'm trying
to use but when it gets to the close portion, it only closes the workbook and
Excel is still running/opened.

DoFinishing = MsgBox("All Done With Updates... Save Spreadsheet and
Exit?", vbYesNo)
If DoFinishing = vbNo Then
DoSave = MsgBox("Then Do You Want To Save The Spreadsheet?", vbYesNo)
If DoSave = vbNo Then
Exit Sub
Else
Application.DisplayAlerts = False
Application.Workbooks("! Compiled.xls").Save
Application.DisplayAlerts = True
Exit Sub
End If
Else
Application.DisplayAlerts = False
Application.Workbooks("! Compiled.xls").Save
Application.Workbooks("! Compiled.xls").Close
Application.DisplayAlerts = True
End If

Thanks,
R

 

[Pete_UK]

Try:

Application.Quit

at the very end.

Hope this helps.

Pete

 

[Guest]

Absolutely Wonderful. So simple I feel stupid.

Thanks Much,
R

 

[Pete_UK]

You're welcome - thanks for feeding back.

Pete

Absolutely Wonderful. So simple I feel stupid.

Thanks Much,
R






- Show quoted text -