Deleting Columns based on Cell Values VBA

Hi all

Hoping someone can help me with the below code

Please Login or Register  to view this content.

I've found the code above online, changing it slightly to cover multiple cell values etc and it works exactly as required.

However,

Whilst three of the four cell values need to be an exact match and if found delete the column.

I need the fourth phrase "THIS IS THE PROBLEM AREA" to delete on a partial match.

The phrase would be "Explain why some elements..", with the ... being a variety of things.

Is this possible at all and if so can someone help me please

Cheers

Hi Marvin,

Cheers for the help, the above suggested code is much smoother than mine.

The first three work like a charm these are always exact matches!!!

however in the fourth example - Cells(1, iCntr) = "THIS IS THE PROBLEM AREA"

I'm replacing this with Cells(1, iCntr) = "Explain why some elements remain"

However it wont find the examples below.

Explain why some elements remain for A
Explain why some elements remain for B
Explain why some elements remain for C

Is there a way to find a partionl match on "Explain why some elements remain" as this is always the same, ignoring the variable A, B & C

Cheers again!!!

Thanks Both Works Like A CHARM!!!!!!!!

Need to remember the Like and wildcard