Периодическое выполнение макроса

[Anatoly Utkin]

Есть некий макрос (назовем его А). Нужно выполнять его периодически во времени. То есть нужен такой алгоритм:
1) В некий момент запускаем что-то
2) Начинает выполняться макрос А раз в минуту
3) В другой момент делаем что-то и все останавливается.
Можно ли это реализовать на VBA?

PS Пусть макрос А таков:

Sub A()
Cells(7, 7) = Cells(7, 7) + 1
End Sub

[kalbasiatka]

Код Выделить Развернуть

Public stp As Boolean

Sub tmr() 'пуск
    stp = False
    Application.OnTime Now + TimeValue("00:00:05"), "A"  'время
End Sub

Sub A()
    If stp <> True Then
        Cells(7, 7) = Cells(7, 7) + 1
        Call tmr
    End If
End Sub

Sub Stp_A() 'стоп
    stp = True
End Sub

Время на своё поменять, минуту ждать долго)

[Anatoly Utkin]

Спасибо большое! Глобальные переменные--сила