Contar quantidades de celulas com cores de letras com formatacao condicional.

Question

Bom dia.

Fiz uma rotina para contar quantidades de celulas com letras predeterminadas com formatacao condicional, mas percebi que a rotina so funciona para letras coloridas manualmente.

A rotina esta abaixo ilustrado, onde o usuario escolhe a area que deseja ser feita a contagem.

Tem como alterar a rotina para contar celulas com letras que sejam de cor por formatcao condicional ou colorida manualmente?

Desde ja agradeco.

Tadao

Sub colourcount1()
Dim area As Range, Man As Integer, Woman As Integer, rng As Range
Set area = Application.InputBox("Delimite a Area Desejada com Mouse", Type:=8)
For Each rng In area

        If rng.Font.ColorIndex = 23 And VarType(rng.Value) = 8 Then
                Man = Man + 1
        ElseIf rng.Font.ColorIndex = 3 And VarType(rng.Value) = 8 Then
                Woman = Woman + 1
                
        End If
Next rng
MsgBox "Dentro da Area Selecionada tem : " & vbNewLine & vbNewLine & _
       Man & " Homens" & vbNewLine & _
       Woman & " Mulheres" & vbNewLine & vbNewLine & _
       Man + Woman & " pessoas no Total", vbOKOnly + vbInformation
       
End Sub