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