Sobre EXCEL, avanzada, se puede?

[Alexander]

Sub RELOJ()
Workbooks("nombrelibro.xls").Worksheets( "Hoja1").Range("A1") = Time

If Workbooks("nombrelibro.xls").Worksheets( "Hoja1").Range("A1") = Workbooks("nombrelibro.xls").Worksheets( "Hoja1").Range("A2") Then
tiempo = 1
Else
tiempo = 0
End If

Application.OnTime Now + TimeValue("0:0:1"), "Reloj", tiempo

If tiempo = 1 Then
MsgBox "Hora Detenida"
End If
End Sub

Con esto puedes hacer "casi" todo con el reloj funcionando digo casi ya que con lo que probe funciona bien, por ejemplo.
Puedes escribir datos en la celdas, insertar formular,funciones ejecutar otra macro que tenga el libro e incluso puedes abrir otro libro y ejecutar una macro si la tiene salvarlo y cerrarlo y el reloj sigue funcionando.
Lo unico que no puedes hacer es cerrar el libro que tiene el reloj ejecutandose hasta que lo detengas por lo demas parece funcionar bien.
En mi ejemplo el reloj se detiene cuando el usuario le introduzca una hora en la celda A2 y esta sea igual a la que se esta ejecutando en la celda A1.
Te coloco la propiedad Workbooks para que no de error cuando trates de abrir otro libro mientras se este ejecutando el reloj.

Espero tus comentarios
Saludos y Suerte