Remove complete row containing a single word

[Kanga 85]

I need to find the word "High" in a whole speedsheet, and remove the whole
row containg that word.
Thanks

 

[Ronbo]

You might try the following, with a little less code.

Sub FindCellDeleteRow()
'
Cells.Find(What:="high").Activate
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Delete Shift:=xlUp
End Sub

 

[Kanga 85]

Thanks to you both.

elegant . I was searching for that <shift=xlup> I used to use some
tortuous statments. thanks a lot