Deleting Entire Row - When cell in column contains a key word

[Student1990]

Hello,

Is there a simple way to create a macro that will DELETE and entire row and move up the cells beneath it if a cell in a certain column meets a specified condition?

For example, I have a worksheet that contains a list of names in column D, and information about those people in columns A,-C and E-H. I want to remove all rows in which a person has the name "John", "Mary", or "Robert", regardless of where the name is located in the cell. So "John Smith", "Albert Robert Jones", and "Mary Smith" would all be examples of names I would want removed. How can I put together a macro to delete and shift up rows containing these names?

Thank you in advance for reading. I am new to this forum, but I'll make sure to "add to reputation" for those who help.

-Student1990

[xladept]

Hi Stu,

Here's a quickie:

Please Login or Register  to view this content.

Directions for running the routine(s) just supplied

Copy the code to the clipboard

Open your Workbook

Save your Workbook or Another Workbook designated for Macros as Macro_Enabled

Press ALT + F11 to open the Visual Basic Editor.

Select “Module” from the Insert menu

Type "Option Explicit" then paste the code under it

With the cursor between Sub and End Sub press F5 (F8 to Single Step)

OR

Press ALT + Q to close the code window.

Press ALT + F8 then double click on the macro name

[Student1990]

xladept: This is exactly what I was looking for. Thank you for taking the time to put this together. My goal is to learn to be able to do this on my own, so I'm going to play around with your example for a different data set. Thanks again!

-Student1990

[xladept]

You're welcome!