Word - ejecutar macro cada cierto tiempo

Sub Tiempo()

    ' ---&--- Mediante esta instruccion "llamamos" a "Actualizarreloj" para volver a _

             actualzizar el Label con la hora

    Application.OnTime Now + TimeValue("00:00:01"), _

                Procedure:="Actualizarreloj", _

                Schedule:=True

End Sub

Sub Actualizarreloj()

    ' ---&--- Coloca la hora en el Label del UserForm

    [A1] = Time

    ' ---&--- Llama a la rutina que cada 01 segundo "llama" a "Actualizarreloj" para volver a _

    '         actualzizar el Label con la hora

    Call Tiempo

End Sub

Sub Detener_reloj()

    ' ---&--- Detiene el "OnTime"

    Application.OnTime Now + TimeValue("00:00:01"), _

                Procedure:="Actualizarreloj", _

                Schedule:=False

End Sub