Dim ind As Boolean
Public Sub spust()
ind = True
Application.OnTime Now + 10 / 24 / 3600, "procedura"
End Sub
Public Sub zastav()
ind = False
End Sub
Public Sub procedura()
If ind = True Then
Cells(1, 1) = Cells(1, 1) + 1
Application.OnTime Now + 10 / 24 / 3600, "procedura"
End If
End Subcitovat