Pinterest Pixel

Delete All Other Worksheets Using Macros In Excel

Wanted to delete all other worksheets in a single click? You can do that using Macros in... read more

Download Excel Workbook
Bryan
Posted on

Overview

Wanted to delete all other worksheets in a single click? You can do that 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 other worksheets except the active worksheet

Copy Source Code:


Sub DeleteAllOtherWorksheets()

Dim worksheet As Worksheet

'Loop through the worksheets
For Each worksheet In ThisWorkbook.Worksheets

'Delete the sheet if it's not the active sheet
If worksheet.name <> ThisWorkbook.ActiveSheet.name Then
Application.DisplayAlerts = False
worksheet.Delete
Application.DisplayAlerts = True
End If

Next worksheet

End Sub

Final Result: 

Delete All Other Worksheets Using Macros In Excel

Exercise Workbook:

Delete All Other Worksheets Using Macros In Excel | MyExcelOnline

Download excel workbookDelete-All-Other-Worksheets.xlsm


These are the worksheets in the file:

Delete All Other Worksheets Using Macros In Excel

STEP 1: Go to Developer > Code > Visual Basic

Delete All Other Worksheets Using Macros In Excel | MyExcelOnline

 

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

Delete All Other Worksheets Using Macros In Excel

 

STEP 3: Let us test it out!

Select the worksheet that you do not want to be deleted. Go to Developer > Code > Macros

Delete All Other Worksheets Using Macros In Excel | MyExcelOnline

 

See also  How to Count Colored Cells in Excel: A Comprehensive Guide

Make sure your macro is selected. Click Run.

Delete All Other Worksheets Using Macros In Excel

 

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

Delete All Other Worksheets Using Macros In Excel 

 

How to Delete All Other Worksheets Using Macros In Excel

 

101 Macros Book

If you like this Excel tip, please share itEmail this to someone

email

Pin on Pinterest

Pinterest

Share on Facebook

Facebook

Tweet about this on Twitter

Twitter

Share on LinkedIn

Linkedin

Get Video Training

Advance your Microsoft Excel & Office Skills with the MyExcelOnline Academy!

Dramatically Reduce Repetition, Stress, and Overtime!
Exponentially Increase Your Chances of a Promotion, Pay Raise or New Job!

Learn in as little as 5 minutes a day or on your schedule.

Learn More!