Deleting a cell based on a keyword

[etrader]

Is there a way to search for a keyword in a spreadsheet and delete the cell if finding that keyword?

I mean deleting a cell if it contains a certain keyword (regardless of the other text in the cell)!

[firefly2k8]

You could use a macro implementation of the find command, something like:

Do while there is something to find
Cells.Find(What:="Online", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate

Cells.Delete

Cells.FindNext(After:=ActiveCell).Activate

End