Reloj

Hola, gracias por la atención:
quiero poner un reloj en varias celdas de una hoja en especial
y quiero que el reloj esté activo cuando el usuario entre en esa hoja
he estado tratando varias formas pero no me resulta.
tengo esto:

Sub reloj()
Aplicación.ScreenUpdating = false
[A1] = Format(Now, "hh:mm:ss")
Application.OnTime Now + TimeValue("00:00:01"), "reloj"
End Sub

pero no se bien como indicarle que ponga el reloj en las demas celdas que
ocupo, además de indicarle que se active al ingresar a la hoja
correspondiente.
agradezco la valiosa ayuda.

Otra cosa me preocupa, cuando uso la macro tal y como la escribí ahí.
arriba, el reloj funciona bien marcando en la celda cada segundo, pero
constantemente cada segundo también en el cursor del mouse se ve el relojito
de arena parpadear cada vez que la macro ejecuta el nuevo valor cada
segundo, también como que "vibran algunas celdas, pensé que era el refresco
de pantalla, pero no, probé también protegiendo la hoja, pero sigue igual
que puede ser y como se puede eliminar?

Gracias