No, it will only cancel the specific Ontime event scheduled for the time
provided. You should not have more than one ontime event pending - have the
ontime event schedule the next one. This is demonstrated by Chip Pearson:
http://www.cpearson.com/excel/ontime.htm
--
Regards,
Tom Ogilvy
"GCF" wrote in message
...
Please help me. I am making an attempt to learn VBA via the cut and
paste / trial and error methods. Enclosed is some code I put together
that seems to work fine until I close the file and within 15 seconds,
the closed file is resurrected in the "SaveFile" procedure. It is my
understanding that executing OnTime with Schedule equal to False will
override and cancel any pending OnTime process. What am I doing wrong?
Sub Auto_Open()
Application.StatusBar = False ' Clear previous
oldStatusBar = Application.DisplayStatusBar ' Save existing
Application.DisplayStatusBar = True ' Turn on
StatusBar
Application.StatusBar = "GCF" ' TEST Use GCF for
test
MsgBox ("Start " & Now & " " & MyTime) ' TEST
Call SaveFile
End Sub
Sub SaveFile()
' ActiveWorkbook.Save ' Save File
MsgBox ("SaveFile " & Now & " " & MyTime) ' Test
Application.OnTime Now + TimeValue("00:00:15"), _
"SaveFile" ' Re-run every TmeValue ' Schedule SaveFile
to exec again
End Sub
Sub Auto_Close()
Application.DisplayAlerts = True
Application.ScreenUpdating = True
Application.DisplayStatusBar = oldStatusBar ' Restore to orig
StatusBar
Application.DisplayStatusBar = False ' Turn off
StatusBar Display
MsgBox ("Auto_Close " & Now & " " & MyTime) ' Test
On Error GoTo 0 ' Turn off error
trapping.
On Error Resume Next ' Defer error
trapping.
Application.OnTime Now + TimeValue("00:00:02"), _
"Terminator", , False ' Override
Application.OnTime in play
End Sub
Sub Terminator() ' Stub for
Auto_Close OnTime
End Sub
--
GCF
------------------------------------------------------------------------
GCF's Profile:
http://www.excelforum.com/member.php...fo&userid=4124
View this thread: http://www.excelforum.com/showthread...hreadid=262367