Excel - HORA DINAMICA

Private Sub Workbook_Open()

    Call Actualizarreloj

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    Call Detener_reloj

End Sub

Option Explicit

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

    ' --- Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), _

                      Procedure:="Actualizarreloj", _

                      Schedule:=False

End Sub

Worksheets("Hoja2").Range("B5") = Time