Want to do some cleanup and delete the empty worksheets in your workbook? Excel Macros will make this happen in a click and delete blank worksheets!

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?

Deletes all worksheets that are blank

Copy Source Code:


Sub DeleteBlankWorksheets()

Dim wsheet As Worksheet

On Error Resume Next
Application.DisplayAlerts = False
Application.ScreenUpdating = False

'Loop through all worksheets and delete the blank ones
For Each wsheet In Application.Worksheets
If Application.WorksheetFunction.CountA(wsheet.UsedRange) = 0 Then
wsheet.Delete
End If
Next

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

Final Result: 

Delete Blank Worksheets Using Macros In Excel | MyExcelOnline

Exercise Workbook:

Delete Blank Worksheets Using Macros In Excel | MyExcelOnline

DOWNLOAD EXCEL WORKBOOK


These are our worksheets, the ones enclosed in red are blank worksheets:

Delete Blank Worksheets Using Macros In Excel | MyExcelOnline

STEP 1: Go to Developer > Code > Visual Basic

Delete Blank Worksheets Using Macros In Excel | MyExcelOnline

 

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

Delete Blank Worksheets Using Macros In Excel | MyExcelOnline

 

STEP 3: Let us test it out!

Go to Developer > Code > Macros

Delete Blank Worksheets Using Macros In Excel | MyExcelOnline

 

Make sure your macro is selected. Click Run.

Delete Blank Worksheets Using Macros In Excel | MyExcelOnline

 

With just one click, all of the blank worksheets are now deleted!Delete Blank Worksheets Using Macros In Excel | MyExcelOnline

 

How to Delete Blank Worksheets Using Macros In Excel

 

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