Как поправить код?

[elf80]

Сообщение от Скрипт

elf80, да, в сообщении #14 я сделал ошибку. Замените этот пункт:

    '6. Удаляем пустые листы из новой книги.
    For i = myNewBook.Worksheets.Count To 2 Step -1
        'Отключаем предупреждающее сообщение, которое появится
            'при удалении листа.
        Application.DisplayAlerts = False
            myNewBook.Worksheets(i).Delete
        Application.DisplayAlerts = True
    Next i

Примечание

Забыл, что, если что-то нужно удалять, то удалять нужно с конца, т.к. порядковые номера меняются.

Уважаемый Скрипт, благодаря вашим усилиям все движется в нужном направлении, но в коде при сохранении новой книги появляется ошибка. Скрин прилагаю.

P.S. код переместил в модуль, в "Эта книга" он не работает.

[SAS888]

Посмотрите пример во вложении. Что не так?

[elf80]

Сообщение от SAS888

Посмотрите пример во вложении. Что не так?

Здравствуйте SAS888 отправляю скрин с ошибкой

[Скрипт]

elf80, я по поводу сообщения #21. Какой текст ошибки?

[elf80]

Сообщение от Скрипт

elf80, я по поводу сообщения #21. Какой текст ошибки?

Извиняюсь, второпях не заметил путь сохранения, изменил папку и ошибка пропала. Подскажите как теперь скрыть лист "доклад" в оригинале после выгрузки копии.

[Скрипт]

Вы в коде давали VBA-имена листу и книге. Вот через эти имена и делайте с ними то, что вам нужно:

    '10. Скрываем лист.
    myActivesheet.Visible = xlSheetHidden

[elf80]

Сообщение от Скрипт

Вы в коде давали VBA-имена листу и книге. Вот через эти имена и делайте с ними то, что вам нужно:

    '10. Скрываем лист.
    myActivesheet.Visible = xlSheetHidden

Огромное спасибо вам Скрипт и всем кто откликнулся на мою просьбу. Буду дальше изучать VBA

[Hugo121]

Похоже меня никто не услышал...
Думаю вся проблема в том, что код был в модуле книги (см. пример #8)