Macro to Delete Unwanted Sheets

[howard]

I am looking for Code to Delete all Sheets except sheets starting with BCM, Con, Niss & Consolidated BCM


Your assistance is most appreciated

 

[hajiali]

Try this:

Please check the sheet names as they will stay. I would also recommend saving a second copy of the file before running the code just in case of the file name typo
was not sure if "Niss & Consolidated BCM" was one sheet or its suppose to be "Niss" and "Consolidate BCM" as another sheet. if that's 2 sheets please modify code to add the other exceipion

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

 

[howard]

Many Thanks for your help

The Sheets to remain are those starting with BCM eg BCM1, BCM2 etc , Con, Niss and Consolidated BCM

See link below showing the sheet. I have highlighted the sheets to remain

Macro to Delete Sheets.xlsm

Microsoft Excel Workbook

1drv.ms

Kindly test & amend code

 

[jolivanes]

Try first on a copy of your workbook.

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

 

[jolivanes]

I could not open your attachment before but it looks like you might have spaces in your sheet names.
I also thought you meant sheets starting with BCM, starting with Con, starting with Nis and starting with Consolidated BCM.
That looks to be not the case so you can delete the wildcard character (*) from these.
So that line should be

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

 

[howard]

Many thanks Jolivanes. Code works 100%