Delete cells which contain specific text within a set range

[Nick70]

Hi,

I would like to have a macro that in active sheet (say sheet1), for range K30:Z40, it deletes all cells which have text equal to "Pass", "Error" or "Fail".

If cell has some text plus "Pass", "Error" or "Fail" then it should not be deleted (eg. if cell contains "Admin Error" then it should not be deleted if it contains "Error" then it should be deleted).

How do I do that?

Thanks,
Nicola

 

[Fluff]

If you men to clear the cell, try

Sub Nick70()
   Dim Ary As Variant
   Dim i As Long
   
   Ary = Array("Pass", "Error", "Fail")
   With Range("K30:Z40")
      For i = 0 To UBound(Ary)
         .Replace Ary(i), "", xlWhole, , False, , False, False
      Next i
   End With
End Sub

 

[Nick70]

Perfect.

Thanks,
N.

 

[Fluff]

You're welcome & thanks for the feedback