Копирование диапазона и вставка в новую рабочую книгу

Это должно быть действительно просто, но я часами тралял форумы и ТАК ответы, чтобы найти ответ без удачи, поэтому (неохотно) создаю свой вопрос.

То, что я пытаюсь сделать, - это просто создать новую рабочую книгу и вставить диапазон из другой рабочей книги в эту рабочую книгу. Звучит просто ..?

Моя оригинальная рабочая книга, давайте назовем Book1. Я пытаюсь создать новую книгу Book2, в которую я скопируюvalues ячеек A1: B10 к.

Вот одна версия моего кода (начиная с открытой Книги1):

Range("A1:B10").Copy
Set NewBook = Workbooks.Add
    With NewBook
        .SaveAs Filename:="Book2.xls"
    End With
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

Это дает «PasteSpecial of Range class failed». ошибка. Я попробовал следующие исправления без удачи:

added 'Workbooks("Book2.xls").Activate' to the code removed the extra arguments in the PasteSpecial line tried '.Paste' instead of '.PasteSpecial' changed 'Selection.PasteSpecial' to 'ActiveSheet.PasteSpecial' explicitly referencing the copy range, including the workbook and sheet reference creating the new workbook first, then performing the copy, before reactivating the new workbook and pasting

Ни одно из вышеперечисленных решений не работает ... любая мудрость на этом этапе будет с благодарностью принята!

Ответы на вопрос(2)

Ваш ответ на вопрос