Сообщество Чайников

Вопрос

В Excel 2000 при копировании листа

Sheets("Name").Copy After:="NameA"

Где-то на 26-31-й копии возникает ошибка #1004 и лист не копируется. Что это за глюк? Как с ним бороться?

Ответ

Используй следующий метод: не Sheets("Name").Copy, а ActiveSheet.Copy

str1 = ActiveSheet.Name + "_svod"
ActiveSheet.Name = "proverka"
ActiveSheet.Copy before:=Workbooks(WBN).Worksheets("START")
ActiveSheet.Copy before:=Worksheets(Worksheets.Count)

zhebelev