Reply to thread

Message: [QUOTE="ordnance1, post: 6450154"] I have this timer code I got courtesy of Chip Pearson ([URL]http://www.cpearson.com/excel/TimedClose.htm[/URL]) and am wondering if it can be altered in such a way that when I get down to 3 minutes (NUM_MINUTES is set to 10 minutes) ClosingSplashScreen.Show will run? Private Sub Workbook_Open() On Error Resume Next Application.OnTime RunWhen, "SaveAndClose", , False On Error GoTo 0 RunWhen = Now + TimeSerial(0, NUM_MINUTES, 0) Application.OnTime RunWhen, "SaveAndClose", , True End Sub [/QUOTE]