Public scheduleTime as Date Public SetTime as Boolean Public sub RunAutoTasks() RunWhen = Now + TimeValue("00:20:00") Application.OnTime Ru