[Tasos]

Καλημέρα Μανώλη!

Δοκίμασε Το παρακάτω:

Option Explicit

Dim ScheduledTime As Date
Const ScheduledJob As String = "UpdateScreen"

Sub StartTimer()
    ScheduledTime = Now + TimeSerial(0, 0, 1)
    Application.OnTime EarliestTime:=ScheduledTime, _
                       Procedure:=ScheduledJob
End Sub

Sub PauseTimer()
    On Error Resume Next
    Application.OnTime EarliestTime:=ScheduledTime, _
                       Procedure:=ScheduledJob, Schedule:=False
End Sub

Sub ResetTimer()
    PauseTimer
   Sheet1.Range("F1") = TimeSerial(0, 0, 0)
End Sub

Sub UpdateScreen()
    With Sheet1.Range("F1")
        .Value = .Value + TimeSerial(0, 0, 1)
    End With
    StartTimer
End Sub

Φιλικά

Τάσος