Hora en userform

Hola, estoy intentando colocar la hora actual, con su incremento en 5 segundos, en un userform, así:
En el evento Activate del formulario tengo esto:
Private Sub UserForm_Activate()
Application.OnTime Now + TimeSerial(0, 0, 5), "mostrarHora"
End Sub
En un módulo este procedimiento:
Sub mostrarHora()
UserForm1.Label1.Caption = Format(Now(), "hh:mm:ss")
Application.OnTime Now + TimeSerial(0, 0, 5), "mostrarHora"
End Sub
Y agregué en el formulario el procedimiento para "cortar" el Ontime con:
Private Sub UserForm_Deactivate()
Application.OnTime Now + TimeSerial(0, 0, 5), "mostrarHora", , False
End Sub
Ahora bien, cuando ejecuto una macro que me guarda y cierra el archivo (ActiveWorkbook. Sabe y ActiveWorkbook.Close) se vuelve abrir el archivo... Cuál es la solución para que cuando le diga que guardo y cierro, ¿guarde y SE CIERRE? Gracias