Delete Rows containing specific words - MS Excel.

[Jayz]

This is doing my brain in.
I need to be able to delete rows on an entire sheet that contain specific words eg a row/s containing the words 'Mat' & 'Delta' regardless what cell it is in. It could be in some instances more than 2 words.

I'm curretly only able to delete according to one word.

Heres a script I found:
===========
Sub Find_Mat()
Dim rng As Range
Dim Mat As String

word = "Mat"

Do
Set rng = ActiveSheet.UsedRange.Find(word)


If rng Is Nothing Then

Exit Do
Else
Rows(rng.Row).Delete
End If


Loop
End Sub
===============

Would really appreciate some help.

Thanks,
Jay

 

[PHV]

Typed, untested:

Do
  Set rng = ActiveSheet.UsedRange.Find("Mat")
  If rng Is Nothing Then Exit Do
  Set rng = rng.EntireColumn.Find("Delta")
  If Not (rng Is Nothing) Then Rows(rng.Row).Delete
Loop

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Jayz]

thanks for the attempt PHV, tried your code but ended up in the loop of death.

any other ideas?

 

[PHV]

Sorry for the typo:
Set rng = rng.Entire[!]Row[/!].Find("Delta")

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886