Detener macro que funciona como reloj

Hola tengo este código en una hoja:

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Call Reloj
Application.DisplayStatusBar = False
ExecuteExcel4Macro ("show.toolbar(""ribbon"",0)")
Application.WindowState = xlMaximized
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
'ActiveWindow.DisplayWorkbookTabs = False
End Sub

la macro reloj es esta

Sub Reloj()

Application.ScreenUpdating = False
ActiveSheet.Unprotect
Range("A2").Formula = "=NOW()"
Application.OnTime Now + TimeValue("00:00:01"), "reloj"
ActiveSheet.Protect
End Sub

mi problema esta que cuando quiero cerrar mi archivo no me deja...

yo cierro con esto:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Cierre <> "SI" Then
Cancel = True
MsgBox "MODO DE CIERRE NO PERMITIDO...", vbCritical + vbOKOnly, " A DONDE??"

End If
End Sub

Private Sub CommandButton1_Click()
Unload Me
MsgBox "NOS VEMOS PRONTO", vbInformation, "HASTA PRONTO"
Call CerrarArchivo
Exit Sub
End Sub

si ejecuto el codigo asi tal cual (si me cierra mi archivo)

pero si lo enlazo con otros no me cierra.

Sub CerrarArchivo()
Application.ScreenUpdating = False
Cierre = "SI"
ActiveWorkbook.Save
Application.Quit
End Sub

Yo pienso que es por el reloj espero su ayuda..

Espero tu orientación DAN gracias