Delete Multiple Sheets Quickly Using Excel VBA

If you have a Excel file with lots of sheets, here is a quick script to delete multiple sheets at a time using Excel VBA. Sub deleteSheets() Dim ws As Worksheet Application.DisplayAlerts = False For Each ws In Worksheets If (InStr(ws.Name, "2022") = 0) Then ws.Delete End If Next ws Application.DisplayAlerts = True End Sub