code to clear all contents in columns with specific text in row 2

Below is my initial code that can't get past the first line.

Please Login or Register  to view this content.

Any help would be greatly appreciated.

I'm trying to clear the contents of all data in each column that has the text conaining "D_MA" in that columns row 2. For instance, if cell F2 has 30D_MA, I want the macro to clear all contents in Column "F" -- but to do this for all columns that contain "D_MA" in row 2.

if right(cells(2,i),4) = "D_MA" then ..... ?

Originally Posted by GeneralDisarray

That will do it. Run this while the sheet you would like to operate on is the active sheet. Save both the Sub and the Function to a module, and run the sub.
The macro will prompt you for the "text to obliterate" - just enter "D_MA" and press enter.


It will then look on the 2nd row for anything containing D_MA (partial match, so D_MA just needs to be part of the text) and clearContents on the entire column. :D

Thanks a lot GerneralDisarray!

I did modify it just a bit (the text I'm searching for won't change - so I did away with the input box) but it is working perfectly.