delete multiple worksheets from within workbook

[jammoca]

I have a workbook that has about 400 worksheets named Sheet 1 through to Sheet 400.

On another sheet called 'Index' within the same workbook, I have a list (in cells C10:C40) that will have only some of the names of the sheets within that same workbook eg:

Sheet 13
Sheet 86
Sheet 112
Sheet 144
Sheet 189
Sheet 232
Sheet 279
Sheet 318

I'd like a button on that 'Index' sheet that, when pressed, will delete from the workbook, any sheet NOT included in the C10:C40 list.

Is this possible, and if so, what code would be needed ?

All the best,

Chris

 

[shg]

Maybe like this, but untested:

Sub x()
    Dim wks         As Worksheet
    Dim r           As Range
 
    With ThisWorkbook
        Set r = .Worksheets("Index").Range("C10:C40")
        On Error Resume Next
        Application.DisplayAlerts = False
 
        For Each wks In .Worksheets
            If IsError(Application.Match(wks.Name, r, 0)) Then wks.Delete
        Next wks
    End With
 
    Application.DisplayAlerts = True
End Sub