Delete All Sheets Except One

[kubrendan]

How can I delete all worksheets in a workbook except for one with a given name? The titles of the other worksheets will vary, so I'm not sure how to do it (I only know how to delete based on a name; in this case, I want to always delete all worksheets except for "Main").

Thanks in advance!

--Brendan--

 

[iggydarsa]

Sub deleteSheets()
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
    If Not ws.Name = "Main" Then
        ws.Delete
    End If
Next ws

Application.DisplayAlerts = True
    
End Sub

 

[VoG]

Tr

Sub test()
Dim ws As Worksheet
Application.DisplayAlerts = False
For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "Main" Then ws.Delete
Next ws
Application.DisplayAlerts = True
End Sub

 

[kubrendan]

Works great, thanks so much!

--Brendan--