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?

Sub rick()

With ActiveSheet
    lastcol = .UsedRange.Columns(.UsedRange.Columns.Count).Column
    startcol = 1

    Range("A1").Select

    For thiscol = startcol To lastcol Step 1

    If Selection.Interior.Color = 255 Then Selection.EntireColumn.Delete Shift:=xlToLeft
    If Selection.Interior.Color <> 255 Then ActiveCell.Offset(, 1).Select

    Next thiscol

End With
End Sub

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

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

sorry about that

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

Sub rick()

With ActiveSheet
    lastcol = .UsedRange.Columns(.UsedRange.Columns.Count).Column
    startcol = 1

    Range("A1").Select

    For thiscol = startcol To lastcol Step 1

    If Selection.Interior.Color <> 255 Then Selection.EntireColumn.Delete Shift:=xlToLeft '<---this says, if the interior color is NOT equal to 255 (red), then select the entire column and delete
    If Selection.Interior.Color = 255 Then ActiveCell.Offset(, 1).Select '<---this says, if the interior color IS equal to 255 (red), then offset by one column and try again

    Next thiscol

End With
End Sub