How to delete all sheets except specified/current one in Excel?

"To delete all sheets in an Excel workbook except the specified or currently active sheet, you can deal with this as below methods shown.

Delete all sheets except specified one with VBA code
One click to delete all sheets except current active one with Kutools for Excel

Delete all sheets except specified one with VBA code

With the VBA code below, you can delete all sheets in a workbook except a specified one in Excel.

1. Press Alt + F11 keys simultaneously to open the Microsoft Visual Basic Application window.

2. Click Insert > Module, then copy and paste below VBA code into the Module window.

VBA code: Delete all sheets except specified ones

Sub DeleteSheets1()
	Dim xWs As Worksheet
	Application.ScreenUpdating = False
	Application.DisplayAlerts  = False
	For Each xWs In Application.ActiveWorkbook.Worksheets
		If xWs.Name <> "Sheet1" And xWs.Name <> "Sheet2" Then
			xWs.Delete
		End If
	Next
	Application.DisplayAlerts = True
	Application.ScreenUpdating = True
End Sub

Notes:

1. “Sheet1” and “Sheet2” are sheets you want to keep in current workbook. You can change them based on your needs.

2. If you want to delete all sheets but keep multiple specified sheets, add And xWs.Name <> "your sheet name" before the Then keyword in the 6th line of the code. Such as: If xWs.Name <> "Sheet1" And xWs.Name <> "Sheet2" And xWs.Name <> "your sheet name" Then

3. If you just want to keep one sheet and delete all from the workbook, please remove all And condition in the code. For example, for keeping sheet1 in current workbook, you need to change the sixth line code to: If xWs.Name <> "Sheet1" Then

Delete all sheets except current active one with Kutools for Excel (One click only)

You can easily remove all sheets except current active sheet with just one click by Delete All Inactive Sheets utility of Kutools for Excel.

1. Click Kutools Plus > Worksheet > Delete All Inactive Sheets. 

3. Then a dialog box pops up, if you determine to delete all sheets except active one, click the OK button, otherwise, click the Cancel button.

Then all sheets are deleted except the current active one in your workbook.

Demo: Delete all sheets except current active one with Kutools for Excel