Tæl farvede celler i pivottabel

Hej
Jeg har en pivottabel, hvor jeg har farvelagt cellerne efter tal størrelse. Det er gjort med betinget formatering.
Hvordan kan jeg tælle disse farver?
Det virker fint, hvis det ikke er i en pivottabel.
Mine kode ser sådan ud:
Function ColorCount(rRange As Range, rColor As Range) As Double
Dim rCell As Range
Dim dCount As Double
dCount = 0
    Application.Volatile
    For Each rCell In rRange
        If rCell.Interior.ColorIndex = rColor.Interior.ColorIndex Then
            dCount = dCount + 1
        End If
    Next rCell
    ColorCount = dCount
End Function

Og min formel ser sådan ud
=+ColorCount(Tabel;M1)