Delete a cell and shift left if it contains the word "school"

Hello I would like VBA code that allows me to select all cells that contain the word "school" and delete the entire cell and shift to the left. Here is an example of what the info in one of theses cells would look like: VirtualSchoolCounselor(byDistrict)Fax: (407)377-8192

So, I don't want to just delete the word school from the cell. I want the whole cell deleted based on the fact that it contains the word school. Thank you in advance!

They can possibly appear in any column or any row

I think Mumps1 forgot to add the direction. The default is xlup. In your case you need xlToLeft

Please Login or Register  to view this content.

Originally Posted by sktneer

You may also try something like this provided no cell on the sheet has a formula error in it.

Please Login or Register  to view this content.

Thank you. This worked for me. I appreciate everyone that took the time to help!
I also want to do this exact function for the phrase "n/a"
Would I just repeat the code and replace school with n/a or is there a cleaner way I should do that?

Originally Posted by sktneer

If the cells contain #N/A returned by the formulas, the existing code will delete them and shift the cells to their left and if "n/a" is just a text string, the following code will do the job.

Please Login or Register  to view this content.

The "n/a" is I guess what you would consider string text. For example the cell might have this data in it: "Father Cell: n/a"
The school code worked, but when I used the n/a code it replaced the old cell with this: "Father Cell: =NA()"

Worked! Thank you!