save all workbooks

[jaypatel]

Hi,

Is there a piece of code that will save all workbooks that are open?

So if I have 5 spreadsheets that is open, can all of them be saved one after the other.

Cheers

Jay

 

[MartinK]

Try:

Sub CloseAll()
Dim wbk As Workbook
For Each wbk In Workbooks
    Application.DisplayAlerts = False
           wbk.Close SaveChanges:=False
    Application.DisplayAlerts = True
Next wbk
End Sub

Or simply:

Workbooks.Close

(displays dialogs)
Martin

 

[Iridium]

From MS KB: XL2000: How to Programmatically Save All Open Workbooks

Sub SaveAll()
    ' Store the Activeworkbook in a variable.
    Set aw = ActiveWorkbook
        For Each wb In Workbooks
            If wb.Path <> "" Then ' Save file if it has been saved
                                  ' previously
                wb.Save
            Else  ' If not previously saved, activate and show the
                  ' Save As dialog box.
                wb.Activate
                Application.Dialogs(xlDialogSaveAs).Show
            End If
        Next
    aw.Activate   ' Activate the original Activeworkbook.
End Sub

HTH