Cellereference og tid

Indsæt følgende kode i et alm. modul
Opret en knap og link den til StartTimer
evt også en knap til StopTimer

Koden kan evt ændres så den stopper hvis den fx møder en tom celle i kolonne A

--------------------------------

Public RunWhen As Double
Dim rk

Sub StartTimer()
On Error Resume Next
    RunWhen = Now + TimeSerial(0, 1, 0)
    rk = rk + 1
    Application.OnTime RunWhen, "StartTimer", , True
    Cells(1, 2) = Cells(rk, 1)
End Sub

Sub StopTimer()
    On Error Resume Next
    Application.OnTime RunWhen, "StartTimer", , False
    rk = 0
End Sub

?

Hej jeg har lidt problemer, men er ikke en haj til VBA. Excel kommer med en fejl efter 1 min. så jeg er ikke kommet videre siden...