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 | MyExcelOnline

Exercise Workbook:

Delete All Other Worksheets Using Macros In Excel | MyExcelOnline

DOWNLOAD EXCEL WORKBOOK


These are the worksheets in the file:

Delete All Other Worksheets Using Macros In Excel | MyExcelOnline

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 | MyExcelOnline

 

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

 

Make sure your macro is selected. Click Run.

Delete All Other Worksheets Using Macros In Excel | MyExcelOnline

 

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

Delete All Other Worksheets Using Macros In Excel | MyExcelOnline 

 

How to Delete All Other 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