DRJ helped me out greatly with the code
Sub UpdateText()
Dim Cel As Range
Dim Str As String
Dim FirstAddress As String
Dim Rng As Range
Str = "Menu: TBD Wine: TBD Price: TBD"
With Range("E:E")
Set Cel = .Find(What:=Str, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=True)
If Not Cel Is Nothing Then
FirstAddress = Cel.Address
Do
If Rng Is Nothing Then
Set Rng = Cel
Else
Set Rng = Union(Rng, Cel)
End If
Set Cel = .FindNext(Cel)
Loop While Not Cel Is Nothing And Cel.Address <> FirstAddress
Rng.Value = "RESTAURANT AVAILABLE SOON! PLEASE SUBMIT " & _
"PDP EVENT INFORMATION FORM TO EXPIDITE NEGOTIATIONS PROCESS."
Rng.Font.ColorIndex = 3
End If
End With
End Sub