Reloj en una celda de Excel

Serían tan amables de ayudarme con un error 404, que sale cuando ejecuto las siguientes sentencias:

Private Sub Workbook_Open()

miReloj

End Sub

Sub miReloj()

Range("A1").Formula = "=NOW()"

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

End Sub

Gracias!