Transferring data from a closed workbook

[ZVI]

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