Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Writes the time to cell A1 and also programs another event five seconds later

Dim NextTick As Date Sub UpdateClock()     ThisWorkbook.Sheets(1).Range("A1") = Time     NextTick = Now + TimeValue("00:00:05")     Application.OnTime NextTick, "UpdateClock" End Sub Sub StopClock()     On Error Resume Next     Application.OnTime NextTick, "UpdateClock", , False End Sub