Deleting All But Specified Sheets

i have a procedure that imports data & splits it by staff name, creating a separate sheet for each person

i wanted to ensure if the code was run twice it wouldn't throw up errors trying to name sheets with names already used, so used the following code to delete all sheets apart from the 2 sheets containing my base data (sheet names for these are IDs and base data)

Sub ClearUpSheets()

Dim ws As Worksheet

Application.DisplayAlerts = False

For Each ws In Worksheets
If ws.Name <> "control sheet" Or ws.Name <> "IDs" Then ws.Delete
Next ws

Application.DisplayAlerts = True
End Sub

unfortunately, apart from a chart sheet (which i actually want deleted) this code deletes all sheets including the 2 i don't want deleted