Application VisualBasic Script

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