Delete Multiple Sheets - tasmia9/VBA GitHub Wiki

Sub sheet_deleter()

For Each Sheet In ActiveWorkbook.Worksheets Application.DisplayAlerts = False If Sheet.Name = "number2" Then Sheet.Delete

 End If

Next Sheet

For Each Sheet In ActiveWorkbook.Worksheets

 If Sheet.Name = "number3" Then
      Sheet.Delete
      Application.DisplayAlerts = False
      
 
 End If

Next Sheet

For Each Sheet In ActiveWorkbook.Worksheets Application.DisplayAlerts = False If Sheet.Name = "number2" Then Sheet.Delete

 End If

Next Sheet

End Sub