you need to double all the quotes inside the formula
ActiveCell.FormulaR1C1 = _
 "=INDIRECT(CONCATENATE("" '[filename.xls]"",$A$2,""'!$AQ$466""))"