Forum Discussion
How to save all opened sheets in one time?
When many files opened, I have to click and wait for each file being completed. This takes a lot of time. Can it be clicked only once and all opened files can be saved?
- Hi
There's no direct way, other than right clicking on your Excel icon on your taskbar, choosing close all windows and then click save each time.
If you know a little about macros then you can save the following macro in your Personal Macro workbook and assign the macro to a button on your quick access toolbar:
The macro below will save all the open Excel files that are not new. If you have a new file (for example, Book1) open that hasn’t been saved, it will not be saved by this macro.
Sub SaveAll()
Dim wb As Workbook
Dim wbActWb As Workbook
Application.ScreenUpdating = False
Set wbActWb = ActiveWorkbook
If MsgBox("Are you sure you wish to save all?", vbYesNo, "Close and Save All?") = vbNo Then
Exit Sub
End If
For Each wb In Workbooks
If wb.Path <> "" Then wb.Save
Next wb
wbActWb.Activate
Application.ScreenUpdating = True
End SubThank you very much.
