{"id":11295,"date":"2019-11-18T16:52:31","date_gmt":"2019-11-18T15:52:31","guid":{"rendered":"https:\/\/www.myexcelonline.com\/?p=11295"},"modified":"2024-03-24T09:21:27","modified_gmt":"2024-03-24T08:21:27","slug":"delete-blank-worksheets-using-macros-in-excel","status":"publish","type":"post","link":"https:\/\/www.myexcelonline.com\/meo-staging\/blog\/delete-blank-worksheets-using-macros-in-excel\/","title":{"rendered":"Delete Blank Worksheets Using Macros In Excel"},"content":{"rendered":"

Want to do some cleanup and delete the empty worksheets<\/a> in your workbook? Excel Macros<\/a> will make this happen in a click and delete blank worksheets<\/strong>!<\/p>\n

Make sure your Excel has the Developer Tab enabled following\u00a0this tutorial<\/a>.<\/p>\n

I explain how you can do this below step by step!<\/p>\n

What does it do?<\/strong><\/em><\/p>\n

Deletes all worksheets that are blank<\/p>\n

Copy Source Code:<\/strong><\/em><\/p>\n

\r\n\r\nSub DeleteBlankWorksheets()\r\n\r\nDim wsheet As Worksheet\r\n\r\nOn Error Resume Next\r\nApplication.DisplayAlerts = False\r\nApplication.ScreenUpdating = False\r\n\r\n'Loop through all worksheets and delete the blank ones\r\nFor Each wsheet In Application.Worksheets\r\nIf Application.WorksheetFunction.CountA(wsheet.UsedRange) = 0 Then\r\nwsheet.Delete\r\nEnd If\r\nNext\r\n\r\nApplication.DisplayAlerts = True\r\nApplication.ScreenUpdating = True\r\n\r\nEnd Sub\r\n\r\n<\/pre>\n
Final Result:\u00a0<\/strong><\/em><\/p>\n
\"Delete<\/p>\n
Exercise Workbook:<\/strong><\/em><\/p>\n
\n