Method 'OnTime' of object'_Application failed

O

ordnance1

Can anyone tell me why I get the following error when running the code
below?

Method 'OnTime' of object'_Application failed

I have the following items in a public module

Public Const cRunIntervalSeconds = 30 'Time interval for pulling updated
data from Calendar (in seconds)
Public Const cRunWhat = "TheSub" ' the name of the procedure to run
Public Const SPLASH_MINUTES = 1 'Time interval for the Close Splash screen
(in minutes)
Public Const NUM_MINUTES = 100 'Time interval for closing the workbook(in
minutes)
Public bSELCTIONCHANGE As Boolean
Public Cancel As Boolean
Public RunWhen As Double
Public RunWhenSplash As Boolean



Private Sub Workbook_BeforeClose(Cancel As Boolean)
RunWhenSplash = Now + TimeSerial(0, SPLASH_MINUTES, 0)
Application.OnTime RunWhenSplash, "ShowMySplash", , False
End Sub
 
O

OssieMac

Untested but I think that the following variable is incorrectly declared.
Public RunWhenSplash As Boolean

Try the following.
Public RunWhenSplash As Date.

I think that the following line will return False instead of a time when the
variable is declared as Boolean instead of Date
RunWhenSplash = Now + TimeSerial(0, SPLASH_MINUTES, 0)
 
O

ordnance1

Thanks for your reply.

I changed the Workbook_BeforeClose to what you see below. As to your other
comment I changed from Public RunWhenSplash As Boolean, to Public
RunWhenSplash As Double


Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime EarliestTime:=RunWhen, Procedure:=cRunWhat, _
Schedule:=False
On Error GoTo 0
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Stopping a timer 10
making a countdown timer 1
Help! Combine Macros 2
Impossible? - Close code 1
Time close and save 0
Ontime problem; variable not passed from Workbook_Open to StartTim 4
Close help 2
Timed Event 0

Top