Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Completely Exit Excel Macro
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 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Completely Exit Excel Macro
Try:
Application.Quit at the very end. Hope this helps. Pete On Jul 12, 11:16 pm, Rob wrote: 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 |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Completely Exit Excel Macro
Absolutely Wonderful. So simple I feel stupid.
Thanks Much, R "Pete_UK" wrote: Try: Application.Quit at the very end. Hope this helps. Pete On Jul 12, 11:16 pm, Rob wrote: 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 |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Completely Exit Excel Macro
You're welcome - thanks for feeding back.
Pete On Jul 13, 12:32 pm, Rob wrote: Absolutely Wonderful. So simple I feel stupid. Thanks Much, R "Pete_UK" wrote: Try: Application.Quit at the very end. Hope this helps. Pete On Jul 12, 11:16 pm, Rob wrote: 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- Hide quoted text - - Show quoted text - |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
deleting a macro completely | Excel Discussion (Misc queries) | |||
macro wants to exit excel | Excel Discussion (Misc queries) | |||
Exit via macro only? | Excel Discussion (Misc queries) | |||
on exit macro | Excel Discussion (Misc queries) | |||
How do i create a command button or macro to exit Microsoft Excel | Excel Worksheet Functions |