Colour Function

Hi,

I found a VBA code that counts how many coloured cells I have..but I cannot seem to make it work (see attached file). I added the module and typed in the formula...but it is not returning the value. I have attached the sheet.

I am looking to count how many of three different colours appears in column B and the % it comes up. Can someone let me know what I am doing wrong?

The code I used is:

Option Explicit
'''This is for counting the number of filled cells within a Range
Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean)
    Dim rCell As Range
    Dim lCol As Long
    Dim vResult
    lCol = rColor.Interior.ColorIndex
    If SUM = True Then
        For Each rCell In rRange
            If rCell.Interior.ColorIndex = lCol Then
                vResult = WorksheetFunction.SUM(rCell, vResult)
            End If
        Next rCell
    Else
        For Each rCell In rRange
            If rCell.Interior.ColorIndex = lCol Then
                vResult = 1 + vResult
            End If
        Next rCell
    End If
   ColorFunction = vResult
End Function

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

You got to call the right function ColorFunction (instead of ColorFuncton)

See the green cells.

Originally Posted by oeldere

You got to call the right function ColorFunction (instead of ColorFuncton)

marshymellO, you appear to have perhaps left an "i" out in your worksheet...

ColorFunction (instead of ColorFuncton)