Решение найдено на сайте Microsoft.  
http://support.microsoft.com/kb/210684/en-us  
Всем спасибо!

Цикл, как правило, завершается вышеупомянутой ошибкой, поэтому сохранять особо и нечего.  
На счет такого количества листов полностью согласен. Однако, вот такие иногда бывают требования, на которые либо ручной привод, либо более новая версия Excel.  
Посмотрю как себя ведет память в процессе расчета и отрезюмирую.

Да, пустые листы создаются и это едва ли не единственный вариант. Но в дальнейшем возрастает трудоемкость по копированию содержимого двух связанных формулами листов-шаблонов.  
Я полагаю проблема связана с ограничением по памяти в excel-е. Во что конечно же не хотелось бы верить...

Задача: Скопировать наборы листов в книге.  
Решение:  
For i = 1 To Sheets("Основной").Range("b2").Value  
       'копируем базовые листы  
       Sheets(Array("31-01(7 часов)", "31-01Вед")).Select  
       Sheets(Array("31-01(7 часов)", "31-01Вед")).Copy Before:=Sheets(Sheets.Count)  
         
       'сортируем листы  
         
       'переименовываем листы  
 
   Next i  
 
Проблема:    
В Excel 2003 на сотом листе выходит ошибка "Метод Copy из класса Sheets завершен неверно". На других компьютерах с 2003-им ошибка выходит и того раньше.  
На 2007 все работает хорошо.  
Возможно ли и как в Excel 2003 средствами VBA копировать 100 и более листов?  
Спасибо.

{quote}{login=Vlad}{date=30.08.2010 04:58}{thema=}{post}Поставить-то галку можно. Но будет сортировать только по возрастанию/убыванию, а по условию и все другие варианты - нет.  
А вот как при включенной защите сортировать по условиям? Ведь на все варианты кнопок с макросами не напасёшься.{/post}{/quote}  
 
При включенной защите сортировка невозможна, независимо от условий.  
Имеется возможность только отображения значений.

{quote}{login=}{date=30.08.2010 04:44}{thema=}{post}а разве нельзя поставить галку на разрешение автофильтра при защите листа?{/post}{/quote}  
 
Галка установлена.  
Разрешение автофильтра ("Использование автофильтра") не дает прав на сортировку.

{quote}{login=The_Prist}{date=30.08.2010 04:34}{thema=}{post}Вариант: т.к. отследить изменение состояния фильтра On-Line нельзя, то лучше всего сделать отдельную кнопку на листе, на которую повесить макрос сортировки. В макросе перед сортировкой снимать защиту листа, а после устанавливать заново.{/post}{/quote}  
 
Или, как вариант, сделать выпадающий список с заголовком "Сортировка", выбирать столбцы, выбирать способ сортировки, щелкать по кнопке, а далее по вышеописанному Вами сценарию. Я все же надеялся, что есть возможность как-то фильтр "ловить". Жаль. Спасибо большое за ответ!

Проблема: Отсутствует возможность сортировки защищенных ячеек в MS Excel.  
Дано: Лист с защищенным диапазоном, фильтр на заголовках.  
Задача: Необходимо предоставить возможность сортировать значения защищенных диапазонов с помощью опций стандартного фильтра.  
 
Возможные варианты решения:  
1. При обработке в фильтре события "сортировка" отключать защиту, сортировать, а затем включать? Если да, то как называется функция?  
2. Свои варианты...  
 
Спасибо.