boucle for sur plusieurs cellule

Sub Test()
    For F = 1 To ThisWorkbook.Sheets.Count      'Parcours toutes les feuilles du classeur
        Select Case Sheets(F).Name
            Case Is = "TOTO", "TITI"            'Liste des feuilles à NE PAS PRENDRE EN COMPTE séparée par ,
                MsgBox Sheets(F).Name & " ne sera pas pris en compte"
            Case Else
                MsgBox "TRAITEMENT a faire sur " & Sheets(F).Name
        End Select
    Next F
End Sub