Sub reloj()


'Mostramos la hora

ActiveSheet.Range("A1") = Format(Now, "hh:mm:ss")

Application.OnTime (Now + TimeSerial(0, 0, 1)), "reloj"

End Sub