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