Count coloured cells

I have a list of numbers, some coloured and others not. I need a formula to count the number of coloured cells as there is a large amount of numbers. Any help please

How did the numbers get colored in the first place?

Yes for this last question you need to post a seperate thread in the macros sub forum.

Try

Function COUNTCOLOR(rColor As Range, rCountRange As Range)
    Dim rCell As Range
    Dim iCol As Integer
    Dim Result

    Application.Volatile

    iCol = rColor.Interior.ColorIndex

    For Each rCell In rCountRange
        If rCell.Interior.ColorIndex = iCol Then
            Result = Result + 1
        End If
    Next rCell
    '=COUNTCOLOR(A1,BZ18:CZ29)
    'Where A1 houses the colour of choice (e.g. yellow)
    COUNTCOLOR = Result
End Function

No problem.

There are three types of macros: General, Sheet, and ThisWorkbook.

This is a general macro

• Copy macro from post above
• Select Ctrl + F11 (Opens VBE)
• Select Ctrl + R (Only if project tree on the left side of the screen is not open)
• Select Insert on toolbar >> Module
• Paste macro on right side of screen
• Select Alt + Q (Closes the VBE and return you to Excel)

Lets say your range is A1:H20 and the color you want to count first occurs in C3.

In a open cell enter =COUNTCOLOR(C3,A1:H20)

NOTE: A User Defined Function (UDF) will not recalculate all by itself; instead, Ctrl + Alt + F9

Are you speaking of post #4?

If so, you need to create a new thread as it is a new topic.