Delete Multiple worksheets using VBA

Below is one more way to delete multiple worksheets except active worksheet using VBA.

 Assign below code to submit button:

Sub Del_Worksheets()

Dim Wrksheet As Worksheet

For Each Wrksheet In ThisWorkbook.Worksheets

If Wrksheet.Name <> ThisWorkbook.ActiveSheet.Name Then

Application.DisplayAlerts = False

Wrksheet.Delete

Application.DisplayAlerts = True

End If

Next Wrksheet

End Sub

Earlier approach :

How to delete multiple worksheets in one click using Macro :