как использовать формулу считающую цветные ячейки в Excel

Function CountByInteriorColor(rRange As Range, rColorCell As Range, Optional bSumHide As Boolean = False) Dim lColor As Long, rCell As Range, lCnt As Long, vVal lColor = rColorCell.Interior.Color For Each rCell In rRange If rCell.Interior.Color = lColor Then If rCell.EntireRow.Hidden Or rCell.EntireColumn.Hidden Then If bSumHide Then lCnt = lCnt + 1 Else lCnt = lCnt + 1 End If End If Next rCell CountByInteriorColor = lCnt End Function