ну да эта часть лишняя  
': ActiveWorkbook.Close True

Workbooks.Open oFile, True ': ActiveWorkbook.Close True  
В этом случае смысла в макросе вообще нет, т.к. можно просто открыть в проводнике все необходимые файлы.

Спасибо попробую.

Добрый день.  
Есть файлы в которые вносят данные и есть сводный файл в котором эти данные обрабатываются. В сводном всё работает, но только если все файлы с данными открыты на одном рабочем месте. Пытаюсь обновить связи макросом  
 
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  
 
Не получается, потому что этот макрос открывает файлы по одному, по очереди.  
Подскажите что мне поправить, что бы данные всё же получить.  
Своё "произведение" прикладываю.

Спасибо, к61. Это очень помогло.

Подскажите, а как заполнить определенное количество ячеек определенным значением? Например в ячейке А цифра 3, в ячейке Б 2, значит заполняем 3 ячейки подряд цифрой 2, при условии уже заполненные ячейки не трогать.

Вот такой упрощенный вариант.

Это только часть, поэтому Вы не сможете правильно оценить объем.

Спасибо, что откликнулись. Постараюсь упростить свои перлы.  
Пишется число в столбце, в соответствии кратности двум закрашивается, определенным   цветом, количество ячеек, т.е. в столбце цифра 10, закрашивается 5 ячеек подряд, если эти ячейки ещё не закрашены. Причем не закрашенные ячейки ищутся в нескольких строчках, и где первая не закрашенная с той и начинаем.  
Я пытался наглядно это изобразить в прикрепленном файле.

Так вроде задача то одна - записал в столбики циферки, закрасились строчки)) только с условиями.

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