Вопрос по созданию новой рабочей книги - VB

Формулировка задачи:

доброго времени суток.
подскажите пожалуйста: мне нужно создать из текущей рабочей книги - новую книгу (определенного названия), с одним листом (опять же имя листа сразу задаю), потом из исходной книги скопировать 3 листа в новую и произовдить потом с этими листами определенные действия.
Private Sub Wb2()
Dim naz1, naz2 As String
Dim i As Integer
'Запоминаю название старой книги
naz1 = ActiveWorkbook.Name
Application.SheetsInNewWorkbook = 1
Set wbNew = Application.Workbooks.Add
wbNew.Sheets(1).Name = "Свод"
wbNew.Activate
naz2 = Application.GetSaveAsFilename("Сводные данные по собственникам.xls")
'Открываю книгу
Workbooks.Open naz2, 0 '

тут она говорит что файл не сохранен или был перемещен, как сохранить файл?

'Запомнил название новой книги
naz2 = ActiveWorkbook.Name
'ищу в старой книге нижнюю границу 1 столбика
n1 = Workbooks(naz1).Sheets(1).Range("A1").End(xlDown).Row
'n1 = Workbooks(naz2).Sheets(1).Range("A1").End(xlDown).Row
For i% = 1 To n1
'if workbooks(naz1).Cells(n1, 1) ''условие'' then
Workbooks(naz1).Cells(n1, 1) = Workbooks(naz2).Cells(i, 1)
Next
'False отвечает за сохр. изменений
Workbooks(naz2).Close '(False)
End Sub

Решение задачи: «Вопрос по созданию новой рабочей книги»

textual
                            Листинг программы 
                        

                            Application.SheetsInNewWorkbook = <font color="darkblue"><b>1</b></font>
<font color="blue">Set</font> wbNew = Application.Workbooks.Add
<font color="blue">Set</font> wsNew = wbNew.WorkSheets(<font color="darkblue"><b>1</b></font>)
wsNew.<font color="blue">Name</font> = <font color="teal">"Свод"</font>
wbNew.Activate

<font color="blue">For</font> i = <font color="darkblue"><b>1</b></font> <font color="blue">To</font> n1
<font color="blue">if</font> wsNew.Cells(n1, <font color="darkblue"><b>1</b></font>) <font color="00AA00">''условие'' then</font>
wsNew.Cells(n1, <font color="darkblue"><b>1</b></font>) = wsNew.Cells(i, <font color="darkblue"><b>1</b></font>)
<font color="blue">Next</font>
                        