Delete next row after a search.

Hello,

Need help here!

Cells.Find(What:="Q3-OND'12", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
cell.EntireRow.Delete

I am trying to find a word in excel, then go to its next row and delete the entire row. I created the code, but somehow it is working. I think I am not fixing it correct at the last code. Please assist.

Thanks
Shiva