Копировать весь лист

[tae1980]

Для создания резервной копии нужно скопировать содержание всего листа. При этом нужно как содержание, так и оформление (размер ячеек, цвет, формулы, выпадающие списки и т.п.). Делаю это так:

    With ТаблицаКудаКопируем
        ОткудаКопируем.Cells.Copy   'Берем в буфер обмена.
        .Paste               'Вставляем из буфера.
    End With

Все копируется без проблем. Для контроля вызываю функцию несколько раз подряд - все хорошо. Работаю дальше. Через некоторое время снова запускаю функцию и получаю ошибку: 1004. Данные не могут быть вставлены из-за несоответствия формы и размера области копирования и области вставки.
Содержание обоих листов не менялось.
Как решить проблему?

[kuklp]

Если копировать надо все, так и копируйте лист. Зачем эти танцы с ячейками?

[tae1980]

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

Если копировать надо все, так и копируйте лист. Зачем эти танцы с ячейками?

Нужно не просто копировать в лист, а в лист с определенным именем. Упрощенно выглядит так.

ЛистИмя=здесь составляем нужное имя.
if Лист(ЛистИмя)=есть then используем его.
else создаем Лист(ЛистИмя) и используем его.

[EducatedFool]

Упрощенно выглядит несколько иначе

ЛистИмя=здесь составляем нужное имя. 
if Лист(ЛистИмя)=есть then удаляем его нафиг )
Копируем лист , присваиваем ему имя ЛистИмя).

[tae1980]

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

Упрощенно выглядит несколько иначе

ЛистИмя=здесь составляем нужное имя. 
if Лист(ЛистИмя)=есть then удаляем его нафиг )
Копируем лист , присваиваем ему имя ЛистИмя).

Так можно поступить с копией, но мне нужно провести так же обратное копирование. В котором я не могу уже удалять лист, там вообще нет проверки на наличие листа.

[kuklp]

tae1980, Вас никто не заставляет прислушиваться к советам. Делайте по-своему.

[tae1980]

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

tae1980, Вас никто не заставляет прислушиваться к советам. Делайте по-своему.

Я только поясняю ситуацию. И уже попробовал все предложения.

[tae1980]

Восстанавливать данные я решил таким способом

        ЛистИмяКодовое = Участки.CodeName
        ActiveWorkbook.Worksheets(ЛистИмя).Copy After:=Участки
        Индекс = Участки.Index
        Application.DisplayAlerts = False                      'Отключем запрос на подтверждение удаления.
        Участки.Delete
        ActiveWorkbook.VBProject.VBComponents(Sheets(Индекс).CodeName).name = ЛистИмяКодовое
        Sheets(Индекс).name = "Участки"