Function CountCells(rng As Range, ci As Long)

For each cell in rng

If cell.Font.Colorindex = ci then

CountCells = CountCells +1
End If
Next cell
End Function

=CountCells(A1:B10,3)

--
__________________________________
HTH

Bob

"danai_mp" wrote in message
...
Could you please inform me if there is a function which can count and/or
summarize cells in excel based on "Font Color"