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:
Exercise Workbook:
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
![Delete Blank Worksheets Using Macros In Excel | MyExcelOnline Delete Blank Worksheets Using Macros In Excel | MyExcelOnline](https://www.myexcelonline.com/wp-content/uploads/2024/07/Bryan-Hong-2-150x150.jpg)
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.