code:Find and Delete

Wrote the below VB and it worked once but I may have made a mess of things with a series of Cut and Pastes. Want Excel to find specific phrases or words in a specific column and delete them.

Option Explicit

Sub delRows()
    Dim cl     As Range
    Dim uRng   As Range
    Dim rng    As Range
    Dim x      As Long

    Set uRng = ActiveSheet.UsedRange
    For Each cl In uRng
        If cl.Value = "Not Rated  |  Write a Review" Or cl.Value = "Click on the More Info button to learn about this business." Or cl.Value = "More Info" Or cl.Value = "Map It" Then
            If x = 0 Then
                Set rng = cl
                x = 1
            Else: Set rng = Union(rng, cl)
            End If
        End If
    Next cl
    rng.EntireRow.Delete

End Sub

Attachment is included

Hello billkelley,

Aside from shortening your code a bit and preventing an error when deleting rows, I don't see any problems with it. What is not doing?

Option Explicit

Sub delRows()
    Dim cl     As Range
    Dim uRng   As Range
    Dim rng    As Range

    Set uRng = ActiveSheet.UsedRange

    For Each cl In uRng
        If cl.Value = "Not Rated  |  Write a Review" Or cl.Value = "Click on the More Info button to learn about this business." Or cl.Value = "More Info" Or cl.Value = "Map It" Then
            If rng Is Nothing Then Set rng = cl
            Set rng = Union(rng, cl)
        End If
    Next cl
    
    If rng.Rows.Count > 0 Then rng.EntireRow.Delete

End Sub