Скопировать книгу - VBA

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

хочу сделать резервное копирование рабочей книги.

wsn = ActiveWorkbook.Name
res = "Копия своего Акта"
papka = Sheets(1).Cells(56, 2).Value
doc1 = papka & "" & res & ".xls"
doc2 = papka & "" & wsn
ActiveWorkbook.SaveAs (doc1)
 
Set ws = Workbooks.Open(doc2)
Workbooks(doc1).Close

дает ошибку на закрытии doc1. причем в модуле "копии акта".

Решение задачи: «Скопировать книгу»

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

                            Set odocm = oWord.Documents.Open(sm)
    код
odocm.SaveAs (doc)
odocm.Close
                        