Is it a regular occurrence for you to have many Excel workbooks at the same time due to multitasking? We can close all workbooks and save changes for all of them using Excel Macros!

Make sure your Excel has the Developer Tab enabled following this tutorial.

I explain how you can do this below step by step!

What does it do?

Close all workbooks and save changes for all of them

Copy Source Code:


Sub CloseAllWorkbooksAndSaveChanges()

Dim workbook As Workbook

'Loop through all workbooks and close them
For Each workbook In Workbooks
workbook.Close SaveChanges:=True
Next workbook

End Sub

Final Result: 

Close All Workbooks and Save Changes Using Macros In Excel

Exercise Workbooks:

Close All Workbooks and Save Changes Using Macros In Excel | MyExcelOnline

DOWNLOAD EXCEL WORKBOOK 1

DOWNLOAD EXCEL WORKBOOK 2


To demonstrate this, we have two workbooks currently open:

Close All Workbooks and Save Changes Using Macros In Excel

STEP 1: Go to Developer > Code > Visual Basic

Close All Workbooks and Save Changes Using Macros In Excel | MyExcelOnline

 

STEP 2: Make sure to select ThisWorkbook.

See also  Highlight Unique Values in Selection Using Macros In Excel

Paste in your code and Select Save. Close the window afterwards.

Close All Workbooks and Save Changes Using Macros In Excel

 

STEP 3: Let us test it out!

Go to Developer > Code > Macros

Close All Workbooks and Save Changes Using Macros In Excel | MyExcelOnline

 

Make sure your macro is selected. Click Run.

Close All Workbooks and Save Changes Using Macros In Excel

 

With just one click, all of your workbooks are now saved and closed!Close All Workbooks and Save Changes Using Macros In Excel

 

How to Close All Workbooks and Save Changes Using Macros In Excel

 

101 Macros Book

HELPFUL RESOURCES:

JOIN OUR FREE EXCEL COURSES BELOW
Click here to access these FREE Excel courses!

If you like this Excel tip, please share itEmail this to someone

email

Pin on Pinterest

Pinterest

Share on Facebook

Facebook

Tweet about this on Twitter

Twitter

Share on LinkedIn

Linkedin