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

Delete Blank Worksheets Using Macros In Excel | MyExcelOnline