Beregn nu hver 2. minut?

Ved hjælp følgende kunne jeg gøre hvad jeg ville:

Option Explicit
Dim NextTick

Sub StartClock()
    UpdateClock
End Sub

Sub StopClock()
'  Cancels the OnTime event (stops the clock)
    On Error Resume Next
    Application.OnTime NextTick, "UpdateClock", , False
End Sub

Sub cbClockType_Click()
'  Hides or unhids the clock
    With ThisWorkbook.Sheets("Clock")
        If .DrawingObjects("cbClockType").Value = xlOn Then
            .ChartObjects("ClockChart").Visible = True
        Else
            .ChartObjects("ClockChart").Visible = False
        End If
    End With
End Sub

Sub UpdateClock()
'      DIGITAL CLOCK
        ThisWorkbook.Sheets("Clock").Range("DigitalClock").Value = CDbl(Time)
 
'  Set up the next event one second from now
    NextTick = Now + TimeValue("00:01:00")
    Application.OnTime NextTick, "UpdateClock"
End Sub

MVH Peter