перестыл работать DoEvents

[ytzm2hsD3X0HVxwl]

Написал макрос, поставил кнопку стоп, DoEvents. Убрал из программы много кода чтоб быстрей работал. Теперь кнопка стоп не работает.Никто н подскажет от чего может не работать DoEvents?

[EducatedFool]

Никто н подскажет от чего может не работать DoEvents?

Никто не подскажет. Поскольку телепатов здесь нет.
Откуда нам знать, что Вы там убрали в коде, а что - оставили...

Будет код (желательно вместе с файлом) - будут советы.

[ytzm2hsD3X0HVxwl]

Тогда вопрос банальный, как сделать кнопку стоп, в цикле?
Я понимаю так, например
Public Exit as Double
Sub Main()
Exit=False
Do
DoEvents
if Exit then Exit Sub
Loop
End Sub

Sub StopClick()
Exit=True
End Sub
Все правильно?

[EducatedFool]

Все правильно?

Нет, не всё.
Во-первых, не используйте в качестве переменных ключевые слова, такие, как Exit
Во-вторых, переменную лучше объявить с типом Boolean

Public ExitMacro As Boolean

Sub Main()
    ExitMacro = False
    Do
        DoEvents
        If ExitMacro Then Exit Sub
    Loop
End Sub

Sub StopClick()
    ExitMacro = True
End Sub

Пример есть в этой теме

[ytzm2hsD3X0HVxwl]

Все понял. Всем спасибо.
Тему можно закрывать.