Excel 2007 :: How To Count Different Color Cells

I am wondering how can I count different color condition color cells?

I am currently using this UDF,

Code:

Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
Dim rCell As Range
Dim lCol As Long
Dim vResult

[Code]...

However, this code count the entire conditioned color cells that I have. What I want is for the code to count two different colors within the same column range (like B1:B10). For example, I have 3 red color cells in range B1:B10 and 7 green color cells in range B1:B10. So, I want it to count 3 and 7 seperately rather than giving me the total of 10.

Important Note: As it is a conditioned coloring, there is no fixed coloring as to which cell will have the red or green since it is based on conditions.

One last time, I am using Excel 2007.