Option Explicit
Dim Halt As Boolean
Public Sub start()
Halt = False
addieren
End Sub
Private Sub addieren()
If Not Halt Then Application.OnTime Time + TimeSerial(0, 0, 1), "addieren"
Cells(1, 1) = Cells(1, 1) + 111
End Sub
Public Sub ende()
Halt = True
End Sub