Application.OnTime Not Stopping...

[burns14hs]

I have been around the interwebs all day and found multiple posts on multiple forums about this but I cannot get it to work correctly no matter what I've tried. Can someone please tell me why my timer never stops and restarts? I start the timer on workbook open and no matter how many different macros i run that begin with stoptimer and end with starttimer, the workbook always shuts down exactly 15 minutes after original open. What am I doing wrong?

Public RunWhen As Double

Public Sub StartTimer()
On Error Resume Next
RunWhen = Now + TimeValue("00:15:00") ' hh:mm:ss
Application.OnTime EarliestTime:=RunWhen, Procedure:="CloseDownFile", Schedule:=True

End Sub

Public Sub CloseDownFile()

StopTimer

Dim bCancel As Boolean
Application.run "ThisWorkbook.Workbook_BeforeClose", bCancel

On Error Resume Next
Application.StatusBar = "Inactive File Closed: " & ThisWorkbook.Name
ThisWorkbook.Close SaveChanges:=False
End Sub

Public Sub StopTimer()

On Error Resume Next
Application.OnTime EarliestTime:=RunWhen, Procedure:="CloseDownFile", Schedule:=False

End Sub

 

[burns14hs]

Mark - I put your code into an empty brand new workbook and it worked perfectly. I then put it into the massive workbook that I am trying to fix and same problem as before. What this means to me is that somewhere in this workbook just after open there is a second instance of StartTimer queuing that is creating a second timer without stopping the first. Then when stop timer is run, it is only running for the latest variable time which is the second one. I appreciate all the help you have provided in me making sure the code is now working correctly so I could troubleshoot the rest. I have now (after a couple hours of searching through probably 200 pages of code) found the culprit and removed it. Thank you so much, again, for your assistance.

 

[GTO]

I am glad you got it working and you are most welcome