Telefonieren nach Zeit

Mit dem nachfolgenden Makros kann man für Prüfzwecke alle 10 Sekunden ein Prüfanruf tätigen.(Sub AnrufStarten())
Die Rufnummern stehen in Spalte B2-Bn.
Nach Telefonruf durch Wahlhilfe (Dialer.exe) wird eine testverbindung aufgebaut nach erfolgreichem Aufbau wird dann in der Spalte C ein "OK" gesetzt mit Sendkey "ESC" abgebrochen und der nächste Anruf aufgebaut.

nun zum Problem:
wenn ich die 100 oder xste Prüfung beendet habe und muß abbrechen
sind zwar die geprüften mit OK gesetzt aber wie kann ich dann dort wieder einsteigen.
Ich starte den Vorgang und es beginnt wieder in B 2.

Sehr ungewöhnlich wenn das alles aber klappt eine große Hilfe für mich.
Dank im voraus
Gruß Peter
Vielleicht mit einem Klick rechte Maustaste auf die Rufnummer klicken und den Ablauf von dort wieder starten starten und bei Fehler Exit Sub oder das StopClock Makro aufrufen??

Modul1

Option Explicit

Declare Function tapiRequestMakeCall Lib "Tapi32.dll" _
(ByVal DestAddress As String, ByVal AppName As String, _
ByVal CalledParty As String, ByVal Comment As String) As Long

Public Const gsMacro As String = "UpdateClock"
Public gdNextTime As Double
Public Zeile As Long

Sub Telefonieren(TelefonNr$, derName$)
Dim retval As Long
retval = tapiRequestMakeCall(TelefonNr, "", derName, "")
If retval <> 0 Then
Cells(Zeile, 3) = "Fehler"
Else
Cells(Zeile, 3) = "OK"
End If
End Sub

Sub StartClock()
Dim iIntervall As Integer
gdNextTime = Now + TimeSerial(0, 0, 5)
Application.OnTime earliesttime:=gdNextTime, _
procedure:=gsMacro, schedule:=True
End Sub
Sub UpdateClock()
Dim A$

SendKeys "{ESC}"

A$ = Cells(Zeile, 2)
Telefonieren A, "C:\Windows\Dialer.exe"

If Zeile = Range("B65536").End(xlUp).Row Then Exit Sub
Zeile = Zeile + 1
Call StartClock
End Sub

Sub StopClock()
On Error Resume Next
Application.OnTime earliesttime:=gdNextTime, _
procedure:=gsMacro, schedule:=False
End Sub

Tabelle1

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call StopClock
End Sub

Sub Abbrechen() 'Ablauf beendet
Call StopClock
End Sub

Sub AnrufStarten() 'Ablauf beginnt
Zeile = 2
Call StartClock
End Sub