Dim d
Sub CreateSheetDictionary()
Set d = CreateObject(“Scripting.Dictionary”)
d.Add “sheet1?, “1?
d.Add “sheet4?, “1?
d.Add “sheet5?, “1?
End Sub

Then, your delete routine looks like this:

For Each ws In ThisWorkbook.Worksheets
if not(d.exists(ws.name)) then
ws.delete
end if
Next

One additional piece of advice — add these lines to avoid having to approve the deletion of every sheet:

Application.DisplayAlerts = False
Application.DisplayAlerts = True

If you wrap them around ws.Delete then it won’t prevent any other alerts from displaying.

Sub exclusion()
Dim Keep As String
Dim ws As Worksheet
Dim SheetsToKeep As Collection

‘ Create a new collection
Set SheetsToKeep = New Collection

‘Add Names of sheets to keep
‘The “” can be anything,
‘it’s the key we are interested in
SheetsToKeep.Add “”, “Save1?
SheetsToKeep.Add “”, “Save2?
SheetsToKeep.Add “”, “Save3?

‘Loop through the sheets
On Error Resume Next
For Each ws In ThisWorkbook.Worksheets
Err.Clear
Keep = SheetsToKeep(ws.Name)
‘if the sheet is part of the collection
‘err is 0, otherwise err is not 0
If Err.Number <> 0 Then
ws.Delete
End If
Next ws
On Error GoTo 0
End Sub

For instance, if you have MySheet1 and Sheet1 and you want to delete Sheet1.

The code supplied would delete MySheet1 too.

I’d use this code instead:

Sub exclusion()
Dim SheetsToKeep As String
Dim i As Long
Dim ws As Worksheet

‘Names of sheets to keep
‘note the first and last commas
SheetsToKeep = “,Save1,Save2,Save3,”

‘Loop through the sheets
For Each ws In ThisWorkbook.Worksheets
‘See if the sheet’s name is in the string
‘don’t forget the commas
If InStr(1, SheetsToKeep, “,” & ws.Name & “,”) = 0 Then
ws.Delete
End If
Next ws

End Sub

I try to use a separator character which is likely not be used for sheet names.
Instead of comma, You could use section-break ?
It’s easy to type it ALT, numkey2, numkey1

Then again, using an exclusion check function you would probably use an array rather than CSV

Cheers!