Here's one I use to save and close all and leave Excel

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

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Cobaum" wrote in message
...
Is there a way to save all open Excel files with one command? I am
working
on annual budget and have ~70 open files and I toggle back and forth so
often
I forget what I saved. Is there one command that will save them all at
the
same time? I can click on the red close-excel "X" at the top and click
yes
to all, but I do not want to close them. Suggestions? Thanks in advance.