Sub RunOnTime() Application.OnTime Date + TimeSerial(15, 0, 0), "RefreshData" End Sub Sub RefreshData() ThisWorkbook.UpdateLink Name:="C:\YourExcel2007File.xlsx", Type:=xlExcelLinks End Sub