Я взял Ваш код из сообщения #1 и поместил его в Вашу Рабочую книгу из сообщения #5. Удалил из оной Рабочей книги все листы, кроме «Sheet». Закомментировал:
- все упоминания «Application.ScreenUpdating», кроме как в начале (=False) и в конце (=True) процедуры «All_in_one()»;
- все отсутствующие и потому не работающие в моей версии Office объекты/методы/свойства;
- все прочие оставшиеся ошибки времени исполнения, не вызванные отсутствующими объектами/методами/свойствами.
Вызвал из Рабочей книги исполнение процедуры «All_in_one()». Никаких прыжков/скачков листов во время исполнения кода не увидел.
