Delete Columns Based On Fill Color

I posted this on Mr Excel, but have had no luck. I have a worksheet with, say, >50 columns of data. Some of the columns are filled with red, while the remainder are not. What I would like is code that would delete all of the columns that are not filled in red. Any ideas?
Thanks in advance.

is this going to be a recurring thing? ~50 cols shouldn't take that long to do manually?

also, could you post an example?

Hi Scott,
Thanks for your prompt reply. If I had, say, 75 different columns, with half and half being filled and not, that would entail quite a number of keystrokes-that is what I am trying to avoid-efficiency! Here is a simple example.
Thanks again.

Scott? Any answer?

trying to figure it out, columns are more difficult than rows since they have letter designations instead of numbers

Please Login or Register  to view this content.

Thanks Scott. It works great except it deletes the filled columns not the unfilled columns!

sorry about that

just change the = --> <>, and <> --->=, and it will be fixed

Please Login or Register  to view this content.