Application.OnTime can't find project or library

[GThacker]

I'm trying to make a sheet auto refresh data every 10 seconds. I'm trying some test code just to figure out what I'm doing and I can't even get it to work.

Sub Test()
    Application.OnTime Now() + TimeValue("00:00:05"), "Demo"
End Sub

Sub Demo()
    MsgBox "The date and time are " & Now
End Sub

It waits the 5 seconds as it should but it won't run the sub. I get the error "Can't find project or library".

Any ideas?

[shg]

What module are each of the subs in?

[GThacker]

I had tried them in the sheet and workbook objects, but never in a module. I put them in a module and now it works. Thank you.

Why doesn't it work if they are within the sheet code?

[shg]

ThisWorkbook and Sheet modules are class modules -- all of their variables and procedures are scoped to the class instance.

[GThacker]

I have a new problem, I have the following code in the ThisWorkbook Module:

Private Sub Workbook_Open()
Application.OnTime earliesttime:=Now + TimeValue("00:00:10"), procedure:="Refresh", schedule:=True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime earliesttime:=Now + TimeValue("00:00:10"), procedure:="Refresh", schedule:=False
End Sub

The start one works, the stop one gives the following error:

Run-time error '1004':

Method 'OnTime' of object '_Application' failed

Do you know why?