Tuning meiner Function möglich?

Function eine riesige Liste mit Nummern aus. Die 

Function soll mir die Zahlen zählen, deren letzte x Stellen innerhalb eines bestimmten Zahlenbereiches liegen.
Funzt auch, aber die Neuberechnung der Mappe nimmt inzwischen ein paar Minuten in Anspruch :-(((
Vielleicht kann mir jemand von Euch einen Tipp geben, ob/wie ich die 

Function tunen kann? Oder ist der Ersatz durch eine Formel vielleicht möglich+sinnvoller?
Russi
www.Russi.de.tt
Hier meine Function:

Function zahlen(Von As String, Bis As String)
Dim Zelle As Range
Dim Zaehler As Long
Zaehler = 0
For Each Zelle In ThisWorkbook.Worksheets("zahlen").Range("NR")
If Right(CStr(Zelle.Value), Len(Von)) >= Von _
And Right(CStr(Zelle.Value), Len(Bis)) <= Bis Then
Zaehler = Zaehler + 1
End If
Next Zelle
kbest = Zaehler
End Function