macro to delete all sheets after a specific one

[Phil1981]

I have a workbook that contains 11 sheets with names that never change. What I would like to have is a macro that will delete all other sheets but keep my original 11 sheets.

All the original sheets are Sheet1, Sheet2 ... Sheet11 etc.

Any help would be appreciated.

Sorry I should specify that new sheets are created between Sheet10 and Sheet11

so
Sheet1 | Sheet2 | Sheet3 |...Sheet10 | newSheet1 | newSheet2 | Sheet11

 

[VoG]

Try

Sub DelSheets()
Dim ws As Worksheets
Application.DisplayAlerts = False
For Each ws In ActiveWorkbook.Worksheets
    With ws
        If IsError(Application.Match(ws.Name, Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6", "Sheet7", "Sheet8", "Sheet9", "Sheet10", "Sheet11"), 0)) Then ws.Delete
    End With
Next ws
Application.DisplayAlerts = True
End Sub

 

[Desu Nota from Columbus]

Sub DelExtraShts()
Dim r As Integer
Dim sheetc As Integer


Application.DisplayAlerts = False
Application.ScreenUpdating = False

Sheets("Sheet11").Move After:=Sheets(10)
sheetc = Sheets.Count

For r = sheetc To 12 Step -1
Worksheets(r).Delete

Next r


Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

 

[texasalynn]

try this

Sub DeleteWS()
'
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Sheets
Select Case sh.Name
Case "Sheet1", "Sheet2", "Sheet3", "Sheet4" 'etc add each one you want to keep
'Do nothing
Case Else
sh.Delete
End Select
Next sh
MsgBox "Done"
Application.ScreenUpdating = True
End Sub