Delete Rows Based on Partial Cell Value

[mikerickson]

Substitute this into xld's code:

If 0 = InStr(.Cells(i, TEST_COLUMN).Value, "Labour") _
       + InStr(.Cells(i, TEST_COLUMN).Value, "Quantity") _
       + InStr(.Cells(i, TEST_COLUMN).Value, "Number") Then .Rows(i).Delete