Подправьте ПЛЗ. Макрос

[Viento]

В данном макросе есть ссылка на ячейку

Sheets(2).Columns("D").

в которой написана формула например:

='[присутсвие.xls]1'!A2

.
Вопрос. почему не работает макрос?

Sub время()

Dim i As Long, x As Range

Sheets(1).Activate
For i = 3 To Cells(1, Columns.Count).End(xlToLeft).Column
Set x = Sheets(2).Columns("D").Find(What:=C ells(3, i), LookAt:=xlWhole)
If Not x Is Nothing Then Cells(2, i) = Sheets(2).Cells(x.Row, "C")
Next

End Sub

Спасибо

[EducatedFool]

А файл присутсвие.xls существует? Открыт ли он во время выполнения макроса?

почему не работает макрос?

А в чём проявляется неработоспособность макроса?

Он вылетает с ошибкой, или не записываент данные на Sheets(1)?

Когда в последний раз работал макрос?
Что после этого Вы изменяли в файлах?

[Viento]

Файл присутсвие.xls существует. и открыт.

Макрос не выдает ошибки и не вставляет результат на Sheets(1).

макрос начинает работать, если в ячейке куда он ссылается не формула а значение!

До этого макроса не было на выполнение этих действий.

[EducatedFool]

Попробуйте заменить строку
Set x = Sheets(2).Columns("D").Find(What:=C ells(3, i), LookAt:=xlWhole)

на строку
Set x = Sheets(2).Columns("D").Find(What:=C ells(3, i), LookIn:=xlValues, LookAt:=xlWhole)

[Viento]

Вы гений!

Огромное спасибо!