Problem med macro til excel, som er lavet i visual basic

jeg har fået hjlæp til nedenstående macro (http://www.eksperten.dk/spm/456559), men har et problem, idet jeg kan køre min macro en gang, men næste gange stopper den efter få sekunder og siger at den er færdig. Jeg skal så slukke excel, og når jeg starter igen kan jeg køre macroen en gang

Public RunWhen As Double
Public Const cRunIntervalSeconds = 5    ' two minutes
Public Const cRunWhat = "TheSub"
Public i As Long


Sub Pico()
RunWhen = Now + TimeSerial(0, 0, cRunIntervalSeconds)
Application.OnTime earliesttime:=RunWhen, procedure:=cRunWhat, _
    schedule:=True
End Sub

Sub TheSub()
  i = i + 1
  If i > 25 Then
      MsgBox "Kopiering slut"
      Call StopTimer
      Exit Sub
  End If
  Range("D1").Select
  Selection.Copy
  Range("A" & i).Select
  Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  Call Pico
End Sub

Sub StopTimer()
  On Error Resume Next
  Application.OnTime earliesttime:=RunWhen, _
      procedure:=cRunWhat, schedule:=False
End Sub

Hvad kan jeg gøre, så jeg ikke hele tidne skal slukke programmet for at bruge macro en gang mere ?

Mvh

Tim