Sub DeleteSheets1()
Dim xWs As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> "BCM" And xWs.Name <> "Con" And xWs.Name <> "Niss & Consolidated BCM" Then
xWs.Delete
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Sub Maybe()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In ActiveWorkbook.Worksheets
If Not (ws.Name Like "BCM*" Or ws.Name Like "Con*" Or ws.Name Like "Consolidated BCM*" Or ws.Name Like "Niss*") Then ws.Delete
Next ws
Application.DisplayAlerts = True
End Sub
If Not (ws.Name Like "BCM*" Or ws.Name Like "Con" Or ws.Name Like "Consolidated BCM" Or ws.Name Like "Niss") Then ws.Delete