Delete some of the sheets

[22strider]

Hello Friends

Could you please help me with a code that would read the current spreadsheet names of the workbook and then delete some of those sheets.
For example the current sheet names are:

Input
Budget12
Budget13
Sheet4
Sheet5
Sheet6

The code needs to delete all the sheets other than the following: Input, Budget12, Budget13.

It would be helpful if the code could ignore sheet name that contains text "Budget" rather than ignoring Budget12 and Budget13. That would help making it more dynamic.

Thanks
Rajesh

 

[ZAX]

First,Where are the sheets names?i.e A1 to a various row for example.
Second,What about "Input",it shouldn't be deleted although it doesn't have "Budget"? (Should the macro only delete the sheets with names containing "Sheet"?)
ZAX

 

[FormR]

Try this in a copy of your workbook:

Sub Test()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
    If LCase(ws.Name) <> "input" And Not lower(ws.Name) Like "budget*" Then
        ws.Delete
    End If
Next ws
Application.DisplayAlerts = True
End Sub