Igor67, Спасибо! Макрос стал работать быстрее. Возьму на вооружение вынесение повторяющихся операций в отдельный макрос ) а StatusBar, как я понимаю, для данного кода нельзя применить?
Обновление информации в статус баре
Обновление информации в статус баре
Обновление информации в статус баре
Обновление информации в статус баре
Убрать автоматические итоги в сводной таблице в области строк (xlRowField), VBA