Probably this suffices, assuming 'TO_Sheet_OFA' refers to a worksheet
For each cl in TO_Sheet_OFA.columns(1).specialcells(2)
Filename_TO.Sheets("Extra_days").columns(1).find(cl.value,,xlvalues,xlwhole).offset(,5)=cl.offset(,1).value
next
Basically if you use more than 1 workbook you should refer to those workbooks properly, the same applies to worksheets:
For each cl in workbooks("book1.xls").sheets("sheet12").columns(1).specialcells(2)
workbooks("book2.xls").sheets("sheet4").columns(1).find(cl.value,,xlvalues, xlwhole).offset(,5)=cl.offset(,1).value
next
Bookmarks