Application.OnTime

Hola a todos.
Dias atras encontre una vieja macro, que pone en una celda determinada la
hora en minutos y segundos. Todo funciona ok, pero no me deja cerrar el
libro, me pueden decir porque ?.

Les copio la macro

Sub TiempoLoco()
Range("D7").Formula = "=NOW()"
Application.OnTime Now + TimeValue("00:00:01"), "TiempoLoco"
End Sub

Sub auto_Open()
Call TiempoLoco
End Sub

No me da ningun tipo de error ni nada, simplemente no cierra el libro, la
unica forma de cerrarlo, es cerrar el excel por completo.

Gracias