Finding Text in One Column and Deleting Row if Certain Text Found in Next Column

[FrenchCelt]

Hello,

I'm trying to code a macro to search for specific text in one column, then looking in the same row in the next column for specific text, and if found, deleting that entire row. For example, in Column G I want to search for FILL CP VHCL. Say this is found in G7 and G8. If the text in H7 says CASES, I want to delete row 7. The macro will have to run through this several times, as FILL CP VHCL will appear dozens of times in the spreadsheet. I have the sense I need to do something like:

Range("G5").Select
Dim fnd As Range
Set fnd = Range("G:G").Find("FILL CP VHCL", , , xlWhole, , , False, , False)

to identify all cells in Column G with that text, and I know I need to do some kind of "if" statement to offset a cell over, and I know how to delete a row once the row is identified, but I don't know how to string together the next conditional involving the text required to identify the row to be deleted ("CASES").

Any help would be appreciated.

 

[Fluff]

Why not simply autofilter on cols G & H & then delete the visible rows?

 

[FrenchCelt]

You know, I've done that before with other macros and it never even occurred to me when I set out to make this one. Sometimes the simplest answer is best. Thank you.

 

[Fluff]

You're welcome & thanks for the feedback.
If you have any problems, just post back.