Macro closes excel and therefore won't run anymore

[David_Stickland]

Firstly, I am a very new macro writer so please be patient!

I have written a very simple macro to save the current work sheet an
then quit excel if no other files are open:

Sub saveandquit()

ActiveWorkbook.Save
ActiveWorkbook.Close

If IsEmpty(ActiveWorkbook) = True Then
Application.Quit
Else
Application.WindowState = xlMinimized
End If

End Sub

The problem being that I can't (i.e. don't want to) store the macro i
my personal.xls file. If the macro is saved in the worksheet when th
macro shuts the worksheet, it effectively shuts itself and therefor
doesn't run the rest of the code.

Can I save the macro separately and then call it from a specifie
location or is there a better way to do what I am trying to do?

Thanks,

Davi

 

[Don Guillett]

Here is one I use to save all open workbooks and quit.
You can modify to suit.

Sub CLOSE_ALL()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each w In Workbooks
w.Save
Next
Application.Quit
End Sub

--
Don Guillett
SalesAid Software
(e-mail address removed)

Firstly, I am a very new macro writer so please be patient!

I have written a very simple macro to save the current work sheet and
then quit excel if no other files are open:

Sub saveandquit()

ActiveWorkbook.Save
ActiveWorkbook.Close

If IsEmpty(ActiveWorkbook) = True Then
Application.Quit
Else
Application.WindowState = xlMinimized
End If

End Sub

The problem being that I can't (i.e. don't want to) store the macro in
my personal.xls file. If the macro is saved in the worksheet when the
macro shuts the worksheet, it effectively shuts itself and therefore
doesn't run the rest of the code.

Can I save the macro separately and then call it from a specified
location or is there a better way to do what I am trying to do?

Thanks,

David


------------------------------------------------



~~Now Available: Financial Statements.xls, a step by step guide to

creating financial statements

 

[David_Stickland]

Thanks for that.

That is a good way to work around the problem