[RESOLVED] Delete all worksheets except few specified worksheets from a workbook

[westconn1]

of you could use a select case

    Dim ws As Worksheet
    
    Application.DisplayAlerts = False
    For Each ws In ThisWorkbook.Worksheets
        Select Case ws.Name
            Case "sheet3", "pivot", "sheet8"  ' add as required
                ' do nothing
            Case Else
                ws.Delete
        End Select
    Next
    Application.DisplayAlerts = True