Evento Ontime - Ejemplo de KL (MS MVP EXCEL)

En este archivo pueden encontrar un muy Buen ejemplo de como manejar el Evento Ontime
El origen del ejemplo era SOLO PARA RECALCULAR un rango de valores aleatorios, pero le agregue en la Celda A1 un reloj digital, este valor puede montarse en un Shape, o lo que sea para mejorar la presentacion.
Además de la opcion que propongo para la hora en celda, puede tambien simplemente agregarse en una celda "=Ahora()" y el evento Calculate se ocupara de actualizar

Gracias a KL que armo el Codigo:
Public Sig As Date
Public Activo As Boolean

Sub Tiempo()
Sig = Now + TimeValue("00:00:05")
Application.OnTime Sig, "Tiempo"
Hoja1.Range("a1") = Time
Calculate
End Sub

Sub Lanzar()
If Activo Then Exit Sub
Activo = True
Tiempo
End Sub

Sub Detener()
If Not Activo Then Exit Sub
Activo = False
Application.OnTime Sig, "Tiempo", , False
End Sub



DESCARGA DE ARCHIVO