Use OnTime to trigger the refresh data
Sub RunOnTime()
Application.OnTime Date + TimeSerial(15, 0, 0), "RefreshData"
End Sub
Sub RefreshData()
ThisWorkbook.UpdateLink Name:="C:\YourExcel2007File.xlsx", Type:=xlExcelLinks
End Sub
Related examples in the same category