Delete entire row for specific words

Hello everybody

I need a macro that enables me to select a range using inputbox ...
As for selection I need to use (Intersect) method to focus on column D in my selection ...
I need to put about seven words in an array , e.g (Cat1,Cat2,Cat3,Cat4,Cat5,Cat6,Cat7) ...

If any cell in column D in that selection only not the whole column :: if any cell has any string of the array the macro delete the entire row

Hope it is clear

Hello YasserKhalil,

See if this works for you :

Please Login or Register  to view this content.

Suggest you post a sample workbook. You should know this by now. Don't expect people to make a test environment before preparing a solution for you.

Regards, TMS

Hi Yasser,

Here is your code:

Please Login or Register  to view this content.

You will need to select a range of cells by clicking on the worksheet and dragging the mouse. This is Type:=8 input.
You should also look at the VBA code and add any "Cat" words you want searched for.

Hope this is what you wanted.

Thanks a lot for this great and useful help
You are awesome

All the solutions offered are wonderful
Thank you very much for this great and brilliant methods

Hi GC Excel,

First - I really like your code, but I wondered about these things.

1. What if the user selects cells that don't intersect with column D? You give an error message so that is ok.
2. Was the question if the whole cell is "Cat1" or if "Cat1" is anywhere in the string in that cell?

Still - I like your code and learned from it. But I interpreted the question with the points above included.
If I wrote my code again, I'd add the Input string of words he is looking for. I liked that. We might also include a prompt for which column he is searching for the input words.

@Marvin,

Thanks for the feedback...

2. Was the question if the whole cell is "Cat1" or if "Cat1" is anywhere in the string in that cell?

You are correct. I should have write this instead since the search value can be anywhere in the cell:

Please Login or Register  to view this content.