Please help me. I am making an attempt to learn VBA via the cut an
paste / trial and error methods. Enclosed is some code I put togethe
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 m
understanding that executing OnTime with Schedule equal to False wil
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 o
StatusBar
Application.StatusBar = "GCF" ' TEST Use GCF fo
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 SaveFil
to exec again

End Sub
Sub Auto_Close()

Application.DisplayAlerts = True
Application.ScreenUpdating = True

Application.DisplayStatusBar = oldStatusBar ' Restore to ori
StatusBar
Application.DisplayStatusBar = False ' Turn of
StatusBar Display

MsgBox ("Auto_Close " & Now & " " & MyTime) ' Test

On Error GoTo 0 ' Turn off erro
trapping.
On Error Resume Next ' Defer erro
trapping.
Application.OnTime Now + TimeValue("00:00:02"), _
"Terminator", , False ' Overrid
Application.OnTime in play

End Sub

Sub Terminator() ' Stub fo
Auto_Close OnTime
End Su

--
GC
-----------------------------------------------------------------------
GCF's Profile: http://www.excelforum.com/member.php...nfo&userid=412
View this thread: http://www.excelforum.com/showthread.php?threadid=26236