Application.OnTime Issue

[anichols]

Hi all,

I have what seemed like simple vba code from Microsoft's website, but I am running into errors. I have a workbook where a userform opens when the workbook is started and a message prompts that a macro will run in 90 seconds unless the command button is clicked. Clicking the button gives me errors.

Private Sub CommandButton1_Click()
Application.OnTime EarliestTime:=Now + TimeValue("00:01:30"), _
 Procedure:="Create_TheReport", Schedule:=False
Me.Hide
End Sub

Private Sub UserForm_Initialize()
Application.OnTime Now + TimeValue("00:01:30"), "Create_TheReport"
End Sub

Any assistance in where I've gone wrong would be helpful.

 

[Micron]

The error message says what and fails on which line?

 

[anichols]

The error message says what and fails on which line?

Run Time Error 1004 Method 'OnTime' of object '_Application' failed
This is highlighted:

Application.OnTime EarliestTime:=Now + TimeValue("00:01:30"), _
 Procedure:="Create_TheReport", Schedule:=False

 

[Micron]

Maybe try
Application.OnTime Now + TimeValue("00:01:30"), "Create_TheReport", False
Works for me, but what you posted doesn't. Not sure why

 

[anichols]

Maybe try
Application.OnTime Now + TimeValue("00:01:30"), "Create_TheReport", False
Works for me, but what you posted doesn't. Not sure why

It did run without errors, however the Sub still gets called, which is what I'm trying to avoid

 

[Micron]

Setting schedule parameter to false is supposed to stop it from running and this seems to be a common issue.
Here's one that's supposed to solve it - haven't studied it to determine why it would work. I find that what I have runs once, then stops, probably because of the false parameter. I tried using a variable for time and setting it to timevalue(0,0,0) but it seems once the code initializes the event, it doesn't stop it.
I'll probably play with it later to see if there's a way to do that because many posted solutions seem to involve a lot of code that you'd think unnecessary if you could just cancel the event.