Help with code that deletes rows with certain color

[atawil]

I am trying to delete a row if a cell in column A is a certain color. I searched all over the internet and found a lot of hits, but none that seem to work, or none that are easy to edit so that I can make them work the way I want (I am still a beginner in VBA).

The most basic and straight forward code I found and editted is pasted below. However, after testing it it doesn't work. I don't get any errors but it doesn't delete any rows. The code is going to be inserted in a big macro that does a lot of other formatting tasks such as deleting and inserting column and rows so I know I have to insert an End if when I get there.

I am using Excel 2010.

Any help is appreciated.

Thanks!

Sub test()
If Columns("A:A").Interior.Color = RGB(255, 0, 0) Then Rows.Delete
 
End Sub

 

[VoG]

Try

Sub test()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
    If Range("A" & i).Interior.Color = RGB(255, 0, 0) Then Rows(i).Delete
Next i
End Sub

 

[Weaver]

Just a thought - is the colour a result of conditional formatting?

 

[VoG]

Just a thought - is the colour a result of conditional formatting?

Ah! Look here http://www.cpearson.com/excel/CFColors.htm

 

[atawil]

Weaver - The cells are not a result of conditional formatting. They are just cells that are part of a legend for a report that was extracted from some program

Vog - Thanks for replying so quickly! The code works in the test but not in the actual workbook. The rows with the colored cells in the actual work book that I want to delete are out of the normal data range by a couple of rows.

 

[atawil]

Sorry, Vog your solution worked great! It just didn't work within my original macro or after I ran my orignal macro. My solution for that was to just call it from the beginning of my macro.

Thanks for your help!