как остановить макрос с бесконечным циклом

[zander]

имеется макрос (см ниже), который нормально работает, но остановить работу макроса получается только кнопкой Reset в редакторе VB или путем закрытия файла. Подскажите как его можно выключить?

Const ИмяФайла7 = "C:\Alex.txt"
Const ИмяФайла8 = "C:\Alex1.txt"

Public РазмерФайла7 As Long, РазмерФайла8 As Long, ПоискИзмененийВременноОтключён As Boolean
Const ВременнойИнтервалМеждуПроверками = 2

Public Sub СлежениеЗаФайлом()
On Error Resume Next


Do While True ' бесконечный цикл
If Not ПоискИзмененийВременноОтключён Then
If ПоискИзмененийВременноОтключён Then Exit Sub

НовыйРазмерФайла7 = CreateObject("scripting.filesystemo bject").GetFile(ИмяФайла7).Size
If НовыйРазмерФайла7 > РазмерФайла7 Then DoFile2 (ИмяФайла7): РазмерФайла7 = НовыйРазмерФайла7

НовыйРазмерФайла8 = CreateObject("scripting.filesystemo bject").GetFile(ИмяФайла8).Size
If НовыйРазмерФайла8 > РазмерФайла8 Then DoFile1 (ИмяФайла8): РазмерФайла8 = НовыйРазмерФайла8


End If
t = Timer: While t + ВременнойИнтервалМеждуПроверками > Timer: DoEvents: Wend
Loop

End Sub

[EducatedFool]

Я же вам уже писал, как это сделать:

Sub НазначьтеЭтотМакросНаКнопкуОстановки()
    ПоискИзмененийВременноОтключён = True
End Sub

Именно для этого я ввел переменную ПоискИзмененийВременноОтключён...

[zander]

Я понимаю что делаю что то не так... я прикрутил к кнопке как сказано - ПоискИзмененийВременноОтключён = True и после этого файлы не мониторятся однако сам макрос не останавливается.. т.е. в окне редактора VB не исчезает надпись - follow.xlsm[running] - [Лист1(Code)]. Это приводит к тому, что запустить макрос снова не получается, если только не нажать кнопку Reset. Что то не так? Может каке то установки самого Exel надо поменять?

отправил Вам благодарность.... пусть немного но все же

[doober]

Писать мало,сделать еще надо
Пускайте муху по кольцу

[zander]

Да, понятно что эта follow.xlsm[running] - [Лист1(Code)] на макрос не влияет, и ничего полезного для меня не отражает.