Function vs Geschwindigkeit

ich habe die u.g. Function mit dem Ziel entwickelt, zu ermitteln wieviele Zahlen in einem Bereich aufeinander folgen. Leider ist die verwendete Variante mit For...Next sehr langsam – instbesondere wenn nach Durchlauf eines Makros die Calculation xlAutomatic wieder eingeschaltet wird.
Hat jemand eine Idee, wie diese Function beschleunigt werden kann?

Viele Grüße

Matthias

Public Function MaxAnzahl_in_Folge(Bereich As Range)
Dim a As Integer, anzahl As Integer, inhalt As Integer

anzahl = Bereich.Rows.Count
MaxAnzahl_in_Folge = 0
For a = 1 To anzahl
If Bereich(a) <> "" Then
inhalt = inhalt + 1
Else: inhalt = 0
End If
If inhalt > MaxAnzahl_in_Folge Then
MaxAnzahl_in_Folge = inhalt
End If
Next a
End Function