Give this macro a try.


Option Explicit

Sub Macro1()
Dim Cel             As Range
Dim Str             As String
Dim FirstAddress    As String
Dim Rng             As Range
Str = "Menu: TBA Wine:TBA"
    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 = "Will receive information soon"
            Rng.Font.ColorIndex = 3
        End If
    End With
End Sub