vba color definition

[homeric]

This vba works fine & I can edit it to find cells with a blue font, but when I want it to find green, it defaults to finding Bright Green (I need it to find Dark Green, but don't know how to enter this in place of the red references below) - Can anyone put me straight on this please?

FindRed
Public Function FindRed(rngRed As Range) As Long
    Application.Volatile
    Dim c As Range
    For Each c In rngRed
        If c.Font.Color = vbRed Then Let FindRed = FindRed + 1
    Next c
End Function

 

[homeric]

Thanks shg - I'll take this in on board, but at the moment all the relevant cells are filled with numbers, however what you say could happen accidentally - Rgds homeric