Состояние фоновой работы - проблема

[DDimok]

Привет всем. В Экселе делается макрос, который лопатит все файлы в нужном каталоге, открывает, копирует из них что-то, закрывает, ... Вобщем ДОЛГО работает. При этом не хочется, чтобы пользователь видел мигание и скакание экрана. Сделал немодальную форму, на которую вывожу что-то типа "Имя файла в обработке ...". ПРи работе делается -
Application.DisplayAlerts = False
Application.ScreenUpdating = False
В момент вывода на экран
Application.ScreenUpdating = True
и потом обратно в False.
НО .... в этой формочке в информационной строке НИЧЕГО не меняется и не отображается. Если СкринАпдате не использовать, то все хорошо отображается, но листы скачут как бешенные и это неприятно
Так вот - а чего я неправильно сделал ? Почему не работает ?
Заранее благодарен за Ваши соображения и информацию.

[alibek]

Здравый смысл подсказывает, что 95% всей автоматизации можно делать без переключений листов. Что тебе требуется делать?

[DDimok]

Открывается Файл1 (беда в том, что в нем куча всегод делается в Workbook_open - долго открывается). Открывается ПустойФайл. Из Файл1 копируется 3 листа в ПустойФайл. Ф1 - закрывается, ПустФайл записывается с именем Файл1. И закрывается. Сохранение требует сделать Activate на книгу, вобщем - что-то скачет, вижу на мониторе сам
А еще - вообще беда, даже если не отключать СкринАпдате, то он не выводит на экран никакой информации, только если вставить паузу в секунду после каждого сообщения. А интересно - а есть что-нить типа "обновить экран" ?

[alibek]

Прячь сам Excel, а прогресс показывай на пользовательской форме.

[DDimok]

Эээээ ... не понял. Это как "спрятать сам Excel" ? У меня есть WorkBook с одной кнопкой - запустить макрос. Открыватеся UserForm с одной строкой TextBox.
Для обновления - FrmMsg.TB_Msg.Text="xxxx".
А он не обновляет, да и сама форма висит оптимистично белого цвета и не фига на ней не выводится (кроме заголовка окна) (
Ниччче не понимаю

[alibek]

Application.Visible = False
...
frm.Repaint
...
Application.Visible = True

[DDimok]

Уййййййяяяяяяя !!!!!!!!!!!!!! Заррработала !!!!!!
Спасибо нечеловеческое !!!!!!!!!
Достаточно было и Repaint, но при скрытом Екселе - все еще раз в 10 быстрее
Спасибо, alibek Большой Человек !!!!!!!!!

[echo]

DDimok
А поделись плиз кодом как ты это реализовал?