Application VisualBasic Script

Sub RunOnTime()
   Application.OnTime Date + TimeSerial(15, 0, 0), "RefreshData"
End Sub