Optimer min tælv.hvis kode

Hej.

Jeg har flere tabeller som jeg filtrerer vha. nogle filtre. Herefter ønsker jeg at tælle antallet af rækker, hvor et kriterie er opfyldt, fx at værdien i kollonne C = KPI.

Jeg kan ikke bruge en tæl.hvis funktion, da den også tæller de skjulte celler (dem jeg har filtreret fra), og tælv.hvis funktion findes ikke.

Derfor har jeg lavet min egen tælv.hvis, men den synes bare ganske langsom, og langt langsommere end fx tæl.hvis.

Håber I har nogle ideér til at gøre den hurtigere

Function TÆLVHVIS(Myrange As Range, Mykriterie As Variant) As Integer

    Dim c As Range
    For Each c In Myrange
        row = c.row 'anvender jeg bare for at følge med
        If (c.Value = Mykriterie) And (c.EntireRow.Hidden = False) Then
            TÆLVHVIS = TÆLVHVIS + 1
        End If
    Next c
           
End Function

Pointene går til den, som får koden til at virke bedst alias hurtigst, eller til  den som løser problemet på en anden og bedre måde.