I have come up with some code on my own, but it compares all of the sheets in the workbook and I only want 3. I tried excluding the ones I don't want with this

Sub SetUp()


For Each ws _
In ActiveWorkbook.Sheets


Select Case ws.Name
    Case Is = "Safe Bets", "PP1", "PP2", "FA Racing", "FA Racing 2", "FA Racing 3", "Debut Destroyer"
        'Do Nothing
    Case Else
        ws.Tab.Color = xlNone


    If ws.FilterMode = True Then
        ws.ShowAllData
    End If


    If ws.AutoFilterMode = True Then
        ws.AutoFilterMode = False
    End If


    If ws.Name = "Criteria" Then
        Application.DisplayAlerts = False
        ws.Delete
        Application.DisplayAlerts = True
    End If
    End Select
Next ws


Worksheets.Add.Name = "Criteria"
Worksheets("Confirmed Lays").Range("1:1").Copy Worksheets("Criteria").Range("1:1")


End Sub
yet it still compares all sheets

Any thoughts?