Max-Function

Sub blabla()
Ber="$C10:$F150"
Wert=WorksheetFunction.Max(Range(Ber)
End Sub

den größten Wert.
Neuerdings sind in dem Bereich aber manchmal Zeilen ausgeblendet, die aber nach wie vor mit in die Max-Ermittlung einbezogen werden.
Hat jemand eine gute Idee, wie ich die Ermittlung nur auf sichtbare Zellen anwenden kann oder muss ich mir meinen Bereich "Ber" in einer Schleife mit Prüfung auf Row.visible zusammenbauen. Es geht mir natürlich auch um Zeit, nicht nur um den etwas größeren code.
viele Grüße
Karl-Heinz