Have many workbooks open and need a quick survey of unsaved files? Excel macros will get the count of unsaved workbooks for you!

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?

Gets the count of unsaved workbooks

Copy Source Code:


Sub GetCountOfUnsavedWorkbooks()

Dim workbook As Workbook
Dim counter As Integer

For Each workbook In Workbooks
'Count the unsaved workbooks
If workbook.Saved = False Then
counter = counter + 1
End If
Next workbook

MsgBox "You have " & counter & " unsaved workbook(s)"

End Sub

Final Result: 

Get the Count of Unsaved Workbooks Using Macros In Excel | MyExcelOnline

Exercise Workbooks:

DOWNLOAD EXCEL WORKBOOK 1

DOWNLOAD EXCEL WORKBOOK 2


We have 2 workbooks open that have unsaved changes:

Get the Count of Unsaved Workbooks Using Macros In Excel | MyExcelOnline Get the Count of Unsaved Workbooks Using Macros In Excel | MyExcelOnline Get the Count of Unsaved Workbooks Using Macros In Excel | MyExcelOnline

STEP 1: In any one of the workbooks, go to Developer > Code > Visual Basic

Get the Count of Unsaved Workbooks Using Macros In Excel | MyExcelOnline

 

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

Get the Count of Unsaved Workbooks Using Macros In Excel | MyExcelOnline

 

STEP 3: Let us test it out!

Go to Developer > Code > Macros

Get the Count of Unsaved Workbooks Using Macros In Excel | MyExcelOnline

 

Make sure your macro is selected. Click Run.

Get the Count of Unsaved Workbooks Using Macros In Excel | MyExcelOnline

 

With just one click, you now have the number of unsaved workbooks!

Get the Count of Unsaved Workbooks Using Macros In Excel | MyExcelOnline

 

How to Get the Count of Unsaved Workbooks Using Macros In Excel

Get the Count of Unsaved Workbooks Using Macros In Excel | MyExcelOnline
HELPFUL RESOURCE:

101 Macros Book

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

email

Pin on Pinterest

Share on Facebook

Tweet about this on Twitter

Share on LinkedIn