Hi Arunlgt:
The code below puts the formula ='T:\Risk\[20100307_BBH_Data.xls]Sheet1'!CD1 into empty cell of previously open workbook "FundPerformance.xls", sheet "Summary", column D.
Not tested, without error trapping, just for the start point:
Sub Test()
With Workbooks("FundPerformance.xls").Sheets("Summary")
With .Cells(.Rows.Count, "D").End(xlUp).Offset(1)
.Formula = "='T:\Risk\[" & Format(Date, "yyyymmdd") & "_BBH_Data.xls]Sheet1'!CD1"
.Value = .Value
End With
End With
End Sub
Regards,
Vladimir