Al ejecutar macro el reloj se queda parado.

Hola tengo una macro que hace que la hora se este actualizando en todo momento. Ademas tengo una macro que crea una copia de la hoja principal que tengo. El problema es que al hacer la copia la macro que actualiza la hora se detiene y tengo que cerrar el archivo y volverlo a abrir para que la hora siga actualizando. Como hago para que la macro de actualización de hora no se detenga.

Esta es la macro en un modulo

Private Declare Function SetTimer Lib "user32" _
(ByVal hwnd As Long, ByVal nIDEvent As Long, _
ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Private lngTimerID
Sub StartTimer()
lngTimerID = SetTimer(0, 1, 10, AddressOf RunTimer)
End Sub
Private Sub RunTimer(ByVal hwnd As Long, _
ByVal uint1 As Long, ByVal nEventId As Long, _
ByVal dwParam As Long)
On Error Resume Next
Hoja1.Range("A60000").Value = Format(Now, "hh:mm:ss")
End Sub

Y esta en thisworkbook

Private Sub Workbook_Open()
StartTimer
End Sub

y esta es la macro que crea una copia de la hoja principal

Private Sub CommandButton1_Click()
nombre = Range("I9").Value
If Range("I9").Value = "" Then
MsgBox "Debe insertar País, Puesto y Nombre", vbCritical, "ERROR"
Else
Sheets("Control de tareas").Copy After:=Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = nombre
ActiveSheet.Shapes("CommandButton1").Delete
Sheets("Control de tareas").Range("D14:F43").ClearContents
Sheets("Control de tareas").Range("E7:F8").ClearContents
Sheets("Control de tareas").Range("I7").ClearContents
End If
End Sub