Save and Close all Open Workbooks using VBScript

  • Thread starter Thread starter Rick De Marco
  • Start date Start date
R

Rick De Marco

Hi,

Doea anyone know how to automatically save and close all open workbooks?

Thanks, Rick
 
can be done as under, two options: In 2nd option, Excel is closed.

Sub closing()
ThisWorkbook.Activate
For Each Window In Application.Windows
If Not Window.Index = ActiveWindow.Index Then
Window.Close Savechanges:=True
End If
Next Window
ThisWorkbook.Close Savechanges:=True
End Sub

OR

Sub quitting()
For Each w In Application.Workbooks
w.Save
Next w
Application.Quit
End Sub
 
Back
Top