Thema: mehrere Wörter suchen VBA

Schönen guten Tag,
möchte gerne 2 bestimmte Wörter per VBA suchen und diese dann als bedingte Foratierung mackieren.
Ich bekomme das leider nur mit einem Wort hin.
Vielleicht kann man mir da jemand freundlicherweise behilflich sein.
Die Wörter sind defekt und gesperrt.
Untereinander könnte ich das, aber der Code kommt in mehere Zellen rein, daher versuche ich das auf eine Zeile zu halten.
Range("F31:I31").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=$H$31=""defekt"""
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.Pattern = xlGray50
.PatternColor = 96
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0.349986266670736
.PatternTintAndShade = 0
End With
Vielen Dank

Hallo,
ich bin mir nicht sicher, ob ich dich richtig verstehe?
Ich würde das mit Select Case lösen.
Etwa so:

Select Case Target.Value
Case "defekt"
Target.Interior.ColorIndex = 48
Case "gesperrt"
Target.Interior.ColorIndex = 48
Case Else
Target.Interior.ColorIndex = 0
End Select

So wird die Zelle, in der gesperrt oder defekt steht, grau gefärbt.
Gruß Pierre

Und wieso unbedingt mit VBA?

das ist nicht leider, das was ich genau suche.
Aber ich danke dir für deine Hilfe.
Werde es noch mal die Tage versuchen.
Muss VBA sein, da in den Feldern kopie and past gibt.
Lg
Holger