hey thanks,

that looks much more concise then my code

but i still get the error on the line

Cells(r, a - 4).FormulaR1C1 = "='M:\Television and Broadband\DATA_2\[" & country & "_cable.xls]" & cvalue & "'!R47C" & a - 4