Bestimmte Wörter in Zellbereich einfärben?

ich möchte den Text der Zellen in denen das Wort "appointment" auftaucht blau einfärben (am besten nur das Wort selbst) und komme einfach nicht weiter, da es sich nicht um den Zellwert handelt, sondern um 1 einzelnes Wort aus einem Wortstrang. Über Hilfe wäre ich sehr dankbar. Hier ist der unvollständige Code:

Sub appntmntColor()
With Range("E2:E650")
If cell.Text = "appointment" Then _
cell.Font.ColorIndex = 32
cell.Interior.ColorIndex = 24
Else: ...
End With
End Sub

Gruß M.