Reloj en Macro Excel

Dentro del foro hay varias preguntas con respecto a este tema (Mostrar reloj en una hoja y que se actualice).
Te dejo el código que debes pegar en un Modulo de VB.
Crea 2 Botones, a uno le asignas el macro "cmd_TimerOn" y el otro le asignas la macro "timer_Stop"
Para este ejemplo el reloj aparece en la celda A1.
Option Explicit
Dim ClockCell As String
Dim timer_enabled As Boolean
Dim timer_interval As Double
Sub cmd_TimerOn()
ClockCell = "A1" ' celda donde mostrará el reloj
Dim interval As Double
interval = 1.15740740740741E-05
Call timer_Start(interval)
End Sub
Sub Timer()
Range(ClockCell).Value = Format(CStr(Time), "hh:mm:ss")
End Sub
Sub timer_OnTimer()
Call Timer
If timer_enabled Then Call timer_Start
End Sub
Sub timer_Start(Optional ByVal interval As Double)
If interval > 0 Then timer_interval = interval
timer_enabled = True
If timer_interval > 0 Then Application.OnTime (Now + timer_interval), "Timer_OnTimer"
End Sub
Sub timer_Stop()
timer_enabled = False
End Sub