how to check if background color is yellow?

[dee101]

I want to check a range and see if the interior color is yellow, and if so let me know which cell or cells it is, something like this

If range("A4:A8, A12:A16,A20:A24,A28:A32").Interior.coler = 6 then let me know what cells are yellow

 

[Ruddles]

Is the background yellow because someone set it to yellow or is it yellow because of conditional formatting?

 

[VoG]

Try

Sub Yeller()
Dim c As Range
Dim msg As String
For Each c In Range("A4:A8,A12:A16,A20:A24,A28:A32")
    If c.Interior.ColorIndex = 6 Then msg = msg & c.Address(False, False) & ", "
Next c
If msg <> "" Then MsgBox Left(msg, Len(msg) - 2), vbInformation, "Yellow cells"
End Sub

 

[dee101]

VoG, Thanks that looks like it will do it.