Delete Rows Based on Partial Cell Value

[Bob Phillips]

[vba]

Public Sub ProcessData()
Const TEST_COLUMN As String = "D" '<=== change to suit
Dim i As Long
Dim iLastRow As Long

With ActiveSheet

iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = iLastRow To 1 Step -1
If .Evaluate("SUMPRODUCT(COUNTIF(" & .Cells(i, TEST_COLUMN).Address & _
",{""*labour*"",""*quality*"",""*Number*""}))") > 0 Then
Rows(i).Delete
End If
Next i

End With

End Sub
[/vba]