Delete All Sheets Except the Active One in Excel | Quick Tutorial

 

Macro Code for Delete All Sheets Except the Active One in Excel | Quick Tutorial

Sub Test()

Dim Sh As Worksheet Application.DisplayAlerts = False For Each Sh In Worksheets If Sh.Name <> ActiveSheet.Name Then Sh.Delete Next Sh Application.DisplayAlerts = True End Sub