Hi all

Hoping someone can help me with the below code

Sub Define_Delete_Columns_Based_On_Cell_Value()

'Declaring the variable lColumn as long to store the last Column number

Dim lColumn As Long

'Declaring the variable iCntr as long to use in the For loop

Dim iCntr As Long

'Assigning the last Column value to the variable lColumn

lColumn = 120

'Using for loop
'We are checking the each cell value if the cell values = those defined below
'Deleting the Column if true

For iCntr = lColumn To 1 Step -1

If Cells(1, iCntr) = "NO - Other Selected (Please provide reason)" Or Cells(1, iCntr) = "How many items did you use in total in this Store across all Product Categories?" Or Cells(1, iCntr) = "How many tools did you use in total in this Store across all Product Categories?" Or Cells(1, iCntr) = "THIS IS THE PROBLEM AREA" Then

Columns(iCntr).Delete

End If

Next

End Sub
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