Schleife Funktioniert nicht !!

Wenn ich ein msgbox immer um ein raufzählen lasse funktioniert
die Schleife. Sobald ich aber einige Funktionen mit den
Befehl Call Irgendeine Funktion reinhänge, macht sie einen durch lauf. Die Anzahl der durchläufe gebe ich mittel Variable vor.
Kann mir da jemand helfen.

Dim AnzU As Integer ' Zähler
Dim Vrb As Integer
Vrb = Sheets("Clip").Cells(1, 3)' Gibt anzahl durchläufe an
For AnzU = 1 To Vrb
If AnzU > Vrb Then Exit For

Call Anweisung

Next AnzU
Vielen Dank auch !!

Mfg. Roland Todaro