Macro makes decision based on cell color

[Bill_Biggs]

I have written a macro that goes down a column reading each cell and carrying out a specific action. Is there a way that I can make the macro sensitive to the color of the cell so that if it is one color it carries out one function and if it is another color, it carries out a different function?

Thanks,

 

[Bill_Biggs]

Nevermind. I kept digging and found something that will do the job. http://www.mrexcel.com/forum/showthread.php?t=320991&highlight=macro+cell+color

 

[VoG]

Well, having written some code I may as well post it

Sub test()
Dim i As Byte
For i = 1 To 10
    Select Case Range("A" & i).Interior.ColorIndex
        Case 3
            MsgBox "Cell A" & i & " is red"
        Case 4
            MsgBox "Cell A" & i & " is green"
        Case 5
            MsgBox "Cell A" & i & " is blue"
    End Select
Next i
End Sub

 

[Bill_Biggs]

I wish I could you taught, I'd find a way to get there for a month! Thanks,