Excel VBA Delete the Entire Row if Value Contains the a Value in a range on Another Sheet

[Grob]

Column C of my [Event History] sheet is my main data source. Column A of my [Eliminate] sheet has a list of different text.
The following works if the in [Eliminate] A1 is MATCHED in [Event History] Column C.
I need to be able to delete entire rows in [Event History] which CONTAINS any of the words in column A of [Eliminate].

Sub DeleteRowIfValue()
'
Dim LastRowInRange As Long, RowCounter As Long
'
LastRowInRange = Sheets("Event History").Range("C1:C100").Find("*", , xlFormulas, , xlByRows, xlPrevious).Row ' Returns a Row Number
'
For RowCounter = LastRowInRange To 1 Step -1 ' Count Backwards
If Sheets("Event History").Range("C" & RowCounter) = Sheets("Eliminate").Range("A1") Then ' If Cell matches our 'Delete if' value then
Sheets("Event History").Rows(RowCounter).EntireRow.Delete ' Delete the row
End If
Next
End Sub

I've tried using wildcard characters in the [Eliminate] list but this did not work.

 

[Fluff]

Hi & welcome to MrExcel.
Try it like

If Sheets("Event History").Range("C" & RowCounter).Value Like "*"& Sheets("Eliminate").Range("A1").Value & "*" Then     '   If Cell matches our 'Delete if' value then

 

[Grob]

Nice. That part works well. My [Eliminate] sheet has a list of multiple text in column A. Can this work till the end of the list is met?

 

[Fluff]

How about

Sub Grob()
   Dim Ary As Variant
   Dim Cl As Range, Rng As Range
   Dim i As Long
   
   With Sheets("Eliminate")
      Ary = .Range("A1", .Range("A" & Rows.Count).End(xlUp)).Value2
   End With
   With Sheets("Event History")
      For Each Cl In .Range("C1", .Range("C" & Rows.Count).End(xlUp))
         For i = 1 To UBound(Ary)
            If Cl.Value Like "*" & Ary(i, 1) & "*" Then
               If Rng Is Nothing Then Set Rng = Cl Else Set Rng = Union(Rng, Cl)
               Exit For
            End If
         Next i
      Next Cl
      If Not Rng Is Nothing Then Rng.EntireRow.Delete
   End With
End Sub

But make sure there are no blank cells in the eliminate sheet.

 

[Grob]

Awesome ... Thanks.

 

[Fluff]

You're welcome & thanks for the feedback.