Mega Code Archive

 

Categories / VisualBasic Script / Date Functions

 

Scheduling a Macro to Run x Minutes in the Future

Sub ScheduleAnything()     WaitHours = 0     WaitMin = 2     WaitSec = 30     NameOfScheduledProc = "CaptureData"     NextTime = time + TimeSerial(WaitHours, WaitMin, WaitSec)     Application.OnTime EarliestTime:=NextTime, Procedure:=NameOfScheduledProc End Sub