Sub DeleteCriticalRows()
Dim rng as Range
set rng = columns("H").find("critical", Range("H1"))
if not rng is nothing then
do
rng.Entirerow.Delete
set rng = columns("H").find("critical",Range("H1"))
loop while not rng is nothing
End if
End sub

--
Regards,
Tom Ogilvy

"bodhisatvaofboogie" wrote:

Now I want to select every cell in a column with the word "Critical" in it
and have the contents deleted. So: Select every cell in column H with the
word "Critical" in it then have it deleted. What would that look like in a
formula for a macro??? THANKS!!!!