Refresh Data
Sub RefreshData1() ThisWorkbook.UpdateLink Name:="E:\your.xls", Type:=xlExcelLinks End Sub