Application VisualBasic Script

Sub RunOnTime()
   Application.OnTime (Date + TimeSerial(10, 47, 0)), "RefreshData1"
End Sub