Dim cell As Range
Dim colorcount As Integer
Function retColorcodeCount(rng As Range, colorcell As Range)
    colorcount = 0
    For Each cell In rng.Cells
        If cell.Interior.Color = colorcell.Interior.Color Then
            colorcount = colorcount + 1
        End If
    Next
    retColorcodeCount = colorcount
End Functionis it possible without VBA amesh?

Count Cells in background color red without VBA
View attachment 52359
1. Select AF2 >> Define Name >>
>> Name : CountColor
>> Refer to :
=SUMPRODUCT(0+(GET.CELL(63,IF(1,+OFFSET($A2:$AE2,,COLUMN($A2:AE2)-MIN(COLUMN($A2:$AE2)))))=3))
2] In AF2, formula copied down :
=CountColor
p.s. : Get.Cell() is a Excel 4 Macro function, so you need to save file as xlsm.
Regards
Bosco

