скопировать листик и открыть книжечку )

[Blame]

День добрый, PRO =)
С наступающим Вас праздником! )

У меня есть 2 небольших вопросика,не очень сложных. Наверное, не хватает пары строчек в нижеприведенном коде)


1) Как скопировать лист с именем "list1" в пустой уже существующий лист ""list2"
я пробовала вот так:

Sub Cop()
ActiveWorkbook.Sheets("list1").Copy
after:=ActiveWorkbook.Sheets("list1 ")
ActiveSheet.Name = "list2"
End Sub

Но при такой функции лист list2 создается динамически. а как скопировать list1 в list2, который уже существует? У меня есть функция, которая очищает его при запуске макроса. Но поскольку очищение предшествует созданию этого листа, выпрыгивает DEBUG.

2) Подскажите, пожалуйста, как по завершению процедур обработки открыть книгу, в которую копировались листы. Копировала я так:

Sheets(Array("list1","list2","list3 ","list4")).Select
Sheets(Array("list1","list2","list3 ","list4")).Copy.

Это ведь через команду типа ActiveWorkbooks.Open можно сделать, верно?
Необходимо,чтобы книга с этими листами просто открылась, и если пользователь захотел, он бы сам сохранил её по необходимым ему именем стандартными средствами Эксель.

[IgorGO]

1)
Sheets("list1").cells.Copy destination:=Sheets("list2").cells( 1,1)

2)
workbooks(N).activate
вместо N напишите номер или или книги.

[Blame]

Игорь,Спасибо Вам!

1) Перенос данных из листа в лист без проблем получилось! ) Огромное шпашибо!!

2)

workbooks(N).activate
вместо N напишите номер или или книги.

Ругается на эту строчку =)
Вы, наверное пропустили слово "имя" ? =)
Номер/имя какой книги необходимо вписать в скобочки? Той, в которой макрос(рабочей) или той, в которую происходит копирование?
Я ведь без автоматического сохранения книги делаю.

[Blame]

Разобралась до конца))
Все заработало,как надо!!!
гип-гип ураа ))
Спасибо!!!