I have the same issue as in this post (with a different word) from 2005:

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

This was the response:

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

My question is how do I apply the solution? Where does this does this code
go? Any info would be greatly appreciated.