Добрый день.  
Есть файлы в которые вносят данные и есть сводный файл в котором эти данные обрабатываются. В сводном всё работает, но только если все файлы с данными открыты на одном рабочем месте. Пытаюсь обновить связи макросом  
 
Sub Update_Links()  
Dim oFile  
With Application.FileDialog(msoFileDialogFilePicker)  
.AllowMultiSelect = True  
.InitialFileName = "*.xlsm*"  
.Title = "Выбрать файлы для обновления"  
If .Show = False Then Exit Sub  
For Each oFile In .SelectedItems  
Workbooks.Open oFile, True: ActiveWorkbook.Close True  
Next  
End With  
End Sub  
 
Не получается, потому что этот макрос открывает файлы по одному, по очереди.  
Подскажите что мне поправить, что бы данные всё же получить.  
Своё "произведение" прикладываю.

Добрый день. Подскажите, пожалуйста, как сделать обозначение ячеек цветом при условии получения данных из дополнительной таблицы, в том числе цвет из столбца "Маркер". Т.е. количество часов из колонки "Рихт" должно распределяться по очередности и с условием что сотрудник не занят. Эти сотрудники, между которыми идет распределение часов из колонки, обозначены приставкой Рихт. Далее, если по этой машине есть работы "Маляр" то они закрашиваю тем же цветом, что и работы "Рихт" по данному атомобилю. Дни разбиты по 2 часа, значит окрашиваться должно соответственное количество подъячеек. Округление арифметическое, кроме случая окончания дня, т.е. если на день работ устанавливается на 9 часов, то часы не переносятся на следующий день (работник будет задерживаться и доделывать этот час в этом дне), перенос на следующий если часов 10 и более. Заранее спасибо.