Help with

[wonderd]

The below code is used to search the cells in column A for a certain text "String1" if the string is found the entire row is deleted. How does the code have to be if I wanted to search more than one string? I have tried this using a comma to separate the strings ex: String1,String2 but this did not work. Any help greatly appreciated .

Sub DeleteRows()    Dim c As Range
    Dim SrchRng
     
    Set SrchRng = ActiveSheet.Range("A1", ActiveSheet.Range("A65536").End(xlUp))
    Do
        Set c = SrchRng.Find("String1", LookIn:=xlValues)
        If Not c Is Nothing Then c.EntireRow.Delete
    Loop While Not c Is Nothing
End Sub

 

[wonderd]

Meant to name the thread "Help with row delete Macro"

 

[wonderd]

Anyone ?