Hi Paul,

Option Explicit

Public Function AllIsRed(rng As Range) As Boolean
Dim rngcell As Range
Application.Volatile
AllIsRed = True
For Each rngcell In rng
If rngcell.Font.ColorIndex < 3 Then
AllIsRed = False
Exit Function
End If
Next
End Function

Public Function AnyIsRed(rng As Range) As Boolean
Dim rngcell As Range
Application.Volatile
AnyIsRed = False
For Each rngcell In rng
If rngcell.Font.ColorIndex = 3 Then
AnyIsRed = True
Exit Function
End If
Next
End Function


HTH,
Bernd