Search for Multiple Strings in Column and Delete Row if none found

[Emoncada]

I have Multiple Sentences in Column A. I have 3 different Criteria's I need to locate in that column.
So example search for " *Alert Red* ", Or " *Successful Job* ", Or " *Failed with Error* "

Any of those phrases in the sentences in Column A i want to keep and delete the rest of the rows.

Any help would be appreciated.

Thanks,

 

[JoeMo]

Assumes your sentences start in cell A1 - change to suit. Note this is case sensitive to the search strings.

Sub Emoncada()
Dim Phrases As Variant, V As Variant, i As Long, j As Long, Ct As Long
Phrases = Array("*Alert Red*", "*Successful Job*", "*Failed with Error*")
With Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    V = .Value
    For i = 1 To UBound(V, 1)
        Ct = 0
        For j = LBound(Phrases) To UBound(Phrases)
            If V(i, 1) Like Phrases(j) Then Exit For
            Ct = Ct + 1
            If Ct = UBound(Phrases) + 1 Then V(i, 1) = "#N/A"
        Next j
    Next i
    Application.ScreenUpdating = False
    .Value = V
    On Error Resume Next
    .SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete
End With
Application.ScreenUpdating = True
End Sub

 

[Emoncada]

That worked Perfectly.

Thanks,