[Epidemic]

Originally posted by jjst34
Thanks.. This is close.. I need it to delete the following 9 rows also, not just the one w/ "hello" and also, how do I make it loop? It only finds one "hello" then I have to run it again.. Thanks a lot.. Any idea on the SUM question? Thanks guys!

you can put that directly in a loop as far as I am concerned

Perhaps a do while loop.

Sub biteme()
    On Error GoTo done
    Do While a < 1000
    Cells(1, 1).EntireColumn.Find("hello", LookIn:=xlWhole, Lookat:=xlWhole).Select
    Range(ActiveCell(), ActiveCell.Offset(-9, 0)).Select
    Selection.EntireRow.Delete
    a = 1 'this is just a bogus variable
    Loop
done:
End Sub