Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long

Sub GoGo()
    Sheet1.Range("A1") = Val(Sheet1.Range("A1")) + 1
End Sub

Sub EnableTimer(Optional blEnable As Boolean = True)
    If blEnable Then
        SetTimer Application.hwnd, 1, 1000, AddressOf GoGo
    Else
        KillTimer Application.hwnd, 1
    End If
End Sub