копия активной страницы

[вова]

Доброго времени суток
почему страница нормально копируется в ту же книгу, а вот если хочу скопировать в другую, то ругается, что subscript out of range ? вообще же хочу добавлять копию активной страницы в заранее известную книгу
On Error GoTo err_copy
ActiveWorkbook.ActiveSheet.Copy , after:=Workbooks.Item("Книга1.xls").Sheets("Лист1") ' все номально Книга1-активная
' after:=Workbooks.Item("Книга2").Sheets("Лист1") -- не хочет!
GoTo after_copy
err_copy:
MsgBox (Err.Source + ": " + Err.Description), vbOKOnly, "Error"
after_copy:

как это сделать по-нормальному ?

[Calvin]

А может у тебя во второй книге нет такого листа с таким названием? (проверь) или просто попробуй пока вместо Sheets("Лист1") поставить Sheets(1), тогда может что-нить прояснится.......