Macro to save & close all opened files
 

Is there any way to record a macro to save and close alll open files?
--
James A

Macro to save & close all opened files
 

Hi James,

I don't know about closing all files, but to close save and close all
Excel workbooks, put this macro in a common module or ThisWorkbook
module. This will save the workbook with the code last and then close
the entire excel application.

Sub CloseWorkbooks()

Dim wkbk As Workbook

'loop through workbook collection
For Each wkbk In Application.Workbooks
If wkbk.Name < ThisWorkbook.Name Then
wkbk.Close True
Else
End If
Next wkbk

'save this workbook
ThisWorkbook.Save
'close the excel application
Application.Quit
End Sub

Regards,

Tim

James A wrote:
Is there any way to record a macro to save and close alll open files?
--
James A