Dim wkbk As Workbook
On Error Resume Next
For Each wkbk In Workbooks
wkbk.Save
wkbk.Close
Next

"Macro to check if a workbook has changed" wrote:

please help. I have in a VBA project a Workbook that opens 13 other
workbooks, and at end must close them all. At the moment my instructions to
the Main workbook is to save them all, and this is costing a lot of time when
I am waiting for the files to be saved. now I want to change to a situation
where the workbook closes the files that were not changed, and only save the
one that has been changed.