Разночтения при обращении к книгам в 2003 и 2007 версиях

[Blame]

Ребят, у меня еще один небольшой вопросик, связанный с разночтением программы в 2003 и 2007 версиях....
необходимо скопировать листы из 1 книги(назовем ее КНИГА1) в другую (НОВАЯ_КНИГА) но с тем условием, чтобы в КНИГА1, из которой копируют, были по активации скрыты все листы, кроме "листа 7".
Таким образом, при запуске программы в КНИГА1 всегда открыт только 1 лист, на время процесса открываются все скрытые листы, они копируются в НОВУЮ_КНИГА, а потом скрываются все, кроме "Листа7"
в 2007 версии работает так, как я сделала, а в 2003 начинаются "чудеса".

Sub Res() 
Dim sh As Worksheet
Application.ScreenUpdating = False
Sheets("Proceeding").Select
Sheets(Array("Лист1", "Лист2", "Лист4", "Лист5")).Select
Sheets(Array("Лист1", "Лист2", "Лист3", "Лист6")).Copy
Workbooks(1).Activate
Workbooks(2).Activate
For Each sh In Workbooks(2).Sheets
 If sh.Name <> "Proceeding" Then
sh.Visible = xlSheetVeryHidden
 End If
 Next
End Sub

В 2003 работает только тогда,когда номера листов в скобках стоят наоборот, точнее, в 2003 прокатывает вариант

Dim sh As Worksheet
Application.ScreenUpdating = False
Sheets("Proceeding").Select
Sheets(Array("Лист1", "Лист2", "Лист4", "Лист5")).Select
Sheets(Array("Лист1", "Лист2", "Лист3", "Лист6")).Copy
Workbooks(1).Activate
Workbooks(2).Activate
For Each sh In Workbooks(1).Sheets
Application.ScreenUpdating = False
 If sh.Name <> "Лист7" Then
sh.Visible = xlSheetVeryHidden
 End If
 Next

это просто какой-то ужас в 2003 версией...а в 2007 не работает вариант,который работает в 2003 версии.

и в той и в другой версии при несаблюдении написанного выше, появляется сообщение о том,что нельзя установать свой-тво "VISIBLE" для книги такой-то. То есть в 2007 обращение идет в первую очередь к новой книге, а в 2003-к старой, и получается, что в новой книге невозможно найти "Лист7".
Ошибка выкидывается на строке

sh.Visible = xlSheetVeryHidden

Можеет подсказать какое-нибудь универсальное решение,предусматривающее скрытие "Листа7" для обоих версий ?

[kuklp]

Ну и правильно. Надо явно указывать книгу, к к-рой обращаетесь:
Вместо :

Sheets("Proceeding").Select
Sheets(Array("Лист1", "Лист2", "Лист4", "Лист5")).Select
Sheets(Array("Лист1", "Лист2", "Лист3", "Лист6")).Copy
Workbooks(1).Activate
Workbooks(2).Activate

достаточно:
thisWorkbook.Sheets(Array("Лист1", "Лист2", "Лист3", "Лист6")).Copy
И избавляйтесь от Select и Activate. Лишнее это.

[Blame]

УУиии !!!
Пааааапробую, как Вы сказали))))
Дад, Вы абсолютно правы: Селекты- это моя беда))))
Исправлюсь!)))
Спасиибо (^.~)

[Blame]

получилось получилось получилось))) и в 2003, и в 2007 )))
*хлопает в ладоши*
Ой, как отлично так день начался !! ))

*_*
Масима масима!!