Во вложенном файле макрос; он подтягивает данные из других файлов.    
Как записать процедуру суммирования ячеек чтобы по каждому филиалу считалась итоговая сумма в столбцах L,M,N,O,P?

Доброе время суток!  
 
Не могу понять почему While Wend заканчивает работу открытием первого найденного файла удовлетворяющего условию "да"???  
 
Есть список к примеру:  
 
1.xls     нет  
2.xls     нет  
3.xls     да  
4.xls     нет  
5.xls     да  
 
прописываю первым While Wend просматривать список (да, нет) пока не равно пусто;  
вторым (внутренним) While Wend - искать выполнение условия "да" и при положительном результате открывать соответствующий файл.  
 
Результат открывается только 3.xls и работа макроса заканчивается до 5.xls не доходит :(  
 
А почему??? что я не так делаю???    
 
 
a = 4  
While Cells(a + 1, i + 1) <> ""  
a = a + 1  
s = a  
While Cells(s + 1, i + 1) = "да"  
s = s  
ff = Sheets("Проверка поступления").Cells(s + 1, 2)  
Workbooks.Open Filename:="\\file\документы\" & ff  
Wend  
Wend

Можно ли сделать так чтобы файл сохранялся только под определенным именем?  
 
Т.е. есть выпадающий список названий; выбрав из списка одно из названий и сохраняя документ, имя документа будет соответствовать названию из списка...  
 
Такое вообще реально? или как-то по другому?

Есть список файлов наличие которых необходимо проверить при этом задается временной интервал поиска (он же по сути папка).    
Помогите плиз с кодом!!!  
И как мне изменить внешний вид кнопки запуска???

Есть папка с файлами 1.xls, 2.xls, 3.xls и т.д. Папка еженедельно обновляется, т.е. после обработки старые файлы удаляет и в понедельник получаем новые. Список файлов, которые д.б. в папке известен.  
Можно ли открыв рабочий файл где консолидируется информация файлов из папки получать информацию о лежащих в папке файлов? и как это сделать?  
 
Пример:  
Папка: 1.xls, 2.xls, 3.xls и т.д.  
Рабочий файл:  
Список   Отметка наличия  
1.xls          да  
2.xls          нет  
3.xls          да