Rows(1).Insert
Columns("H:H").AutoFilter field:=1, Criteria1:="Critical"
Columns("H:H").SpecialCells(xlCellTypeVisible).Ent ireRow.Delete


--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"bodhisatvaofboogie" wrote in
message ...
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!!!!