Contar Cores No Excel

Meus amigos este sistema faz com que o excel reconheça a cor preta num determinado ranger.

O que eu gostaria de conseguir é. Que em outro ranger ele reconheça a cor vermelha e me sinalise em outra celula.

Isso eu ja quase consegui o problema e que ele conta a cor preta e a vermelha gostaria de um jeito de separar isso.

Alguem pode me ajuda

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'

'

Dim i As Object

Dim Intervalo As Range

Set Intervalo = Range("a1:b8")

For Each i In Intervalo

If CorFundo(i) = 1 Then ' [ 1 ]= preto

qtde = qtde + 1

End If

Next i

[c1] = qtde

'Célula que receberá a informação de quantas repetições houve

Set Intervalo = Range("a9:b15")

For Each i In Intervalo

If CorFundo(i) = 3 Then ' [ 3 ]= vermelho

qtde = qtde + 1

End If

Next i

[c2] = qtde

'Célula que receberá a informação de quantas repetições houve

End Sub

Function CorFundo(vRange As Range)

If Selection.Areas.Count = 1 Then

CorFundo = vRange.Interior.ColorIndex

Else

CorFundo = Null

End If

End Function