Delete row contents if keyword is found in Column E

**bonsaitrees** · 11-11-2012, 10:57 AM

Hi,

I'm looking for some code that will delete the row it is in if the word 'Homework' is found anywhere in column E.

Thank you

**jeffreybrown** · 11-11-2012, 11:03 AM

Try

Sub DelRows2()
    Application.ScreenUpdating = False
    With Sheets("Sheet1").Range("E1", Range("E" & Rows.Count).End(xlUp))
        .AutoFilter Field:=1, Criteria1:="Homework"
        .Offset(1).EntireRow.Delete
        .AutoFilter
    End With
    Application.ScreenUpdating = True
End Sub

Change sheet name to match

**YvorL** · 11-11-2012, 11:04 AM

Hi!

For search us '.Find' , and for deleting the row '.EntireRow.Delete' .

**bonsaitrees** · 11-11-2012, 11:14 AM

Thanks for the solution

**jeffreybrown** · 11-11-2012, 03:48 PM

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.