Delete Blank Worksheets Using Macros In Excel

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:

</p>
<p>Sub DeleteBlankWorksheets()</p>
<p>Dim wsheet As Worksheet</p>
<p>On Error Resume Next<br />
Application.DisplayAlerts = False<br />
Application.ScreenUpdating = False</p>
<p>'Loop through all worksheets and delete the blank ones<br />
For Each wsheet In Application.Worksheets<br />
If Application.WorksheetFunction.CountA(wsheet.UsedRange) = 0 Then<br />
wsheet.Delete<br />
End If<br />
Next</p>
<p>Application.DisplayAlerts = True<br />
Application.ScreenUpdating = True</p>
<p>End Sub</p>
<p>

Final Result: 

Exercise Workbook:

Download excel workbookDelete-Blank-Worksheets.xlsm

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

STEP 1: Go to Developer > Code > Visual Basic

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

STEP 3: Let us test it out!

Go to Developer > Code > Macros

Make sure your macro is selected. Click Run.

With just one click, all of the blank worksheets are now deleted!

How to Delete Blank Worksheets Using Macros In Excel

Bryan

Bryan Hong is an IT Software Developer for more than 10 years and has the following certifications: Microsoft Certified Professional Developer (MCPD): Web Developer, Microsoft Certified Technology Specialist (MCTS): Windows Applications, Microsoft Certified Systems Engineer (MCSE) and Microsoft Certified Systems Administrator (MCSA).

He is also an Amazon #1 bestselling author of 4 Microsoft Excel books and a teacher of Microsoft Excel & Office at the MyExecelOnline Academy Online Course.