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
|