как приостановить процедуру?

[kv17]

как приостановить процедуру во время ее исполнения, чтобы во время паузы можно было поработать с листами рабочей книги, а затем продолжить выполнение этой процедуры?

спасибо

[Genyaa]

Если в определенном месте, то включите в код команду Stop. Для продолжения - F5.
Если в неопределенный момент - нажимаем Esc.

Попробуйте. Но может быть стоит просто разбить процедуру на нужные части и исполнять их, вместо прерывания.

[kv17]

штука в том что, процедуру разбить нельзя, нужно именно ее приостановить причем так, чтобы во время паузы был доступ к worksheets. это можно сделать через stop а можно через

userform_xxx.show false
Do
DoEvents
Loop Until quit
End Sub

где quit - глобальная переменная, становится true когда, например, вы кликаете на форму:
Private Sub UserForm_Click()
Unload userform_xxx
quit = True
End Sub


это работает в xp однако в win2000 возникают какие то сбои