Maybe something like this?
Option Compare Text
Sub DeleteRowsMatchingText()
Dim rFoundText As Range
Dim rLookRange As Range
Dim vText() As Variant
Dim vItem As Variant
Dim lCalc As Long
With Application
lCalc = .Calculation
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
vText = Array("County of Residence", "Age of Respondent", "Zip Code of Employment")
Set rLookRange = Range("A:A,C:C") 'Change A:A and C:C to your search columns
For Each vItem In vText
Do
Set rFoundText = rLookRange.Find(vItem, LookIn:=xlValues, lookat:=xlWhole)
If Not rFoundText Is Nothing Then
rFoundText.EntireRow.Delete
End If
Loop Until rFoundText Is Nothing
Next
Set rLookRange = Nothing
Set rFoundText = Nothing
With Application
.ScreenUpdating = True
.Calculation = lCalc
End With
End Sub
Bookmarks