Prüfung der Zeilenhöhe (Autofilter)

Hallo zusammen,

ich möchte die durch Autofilter gefilterten Daten mit einer For Schleife durchlaufen.
Ich nutze hierfür RowHeight >0 aber aus irgendeinem Grund findet er auch Einträge in Zeilen die gar nicht im Autofilter sind.

Frage:

Habe ich irgendwo einen Fehler im Code den ich übersehe? Die Datenquelle hat zwar insgesamt 10 Spalten aber es dürfte doch reichen wenn ich als Range die Spalte angebe in der ich auch letztlich suchen möchte oder ?

Function AGcheck(strPosNr As String) As String

Dim c As Range
        
        For Each c In ThisWorkbook.Sheets("AG_alle").Range("B2:B50000")
            If c.RowHeight > 0 Then
                
                If strPosNr = ThisWorkbook.Sheets("AG_alle").Cells(c, 2) Then
                    AGcheck = ThisWorkbook.Sheets("AG_alle").Cells(c, 3).Value
                    GoTo ENDE
                End If
            End If
        Next c

ENDE:

End Function