Auto run macros at a given time error

Look at this link

http://p2p.wrox.com/excel-vba/71210-...ific-time.html

Try this:

Private Sub Workbook_Open()
Application.OnTime TimeValue("07:05:00"), "Sort"
Call Module1.Anniversary

End Sub

Another option to try

Private Sub Workbook_Open()
Application.OnTime TimeValue("07:05:00"), "Sort"
Application.OnTime EarliestTime:=TimeValue("07:05:01"), Procedure:= Anniversary, LatestTime:=TimeValue("07:55:00")

End Sub

I used 07:55:01 so that it did not conflict with the first item. I wanted it to run one second after the first first.

Ran this with no errors. But I don't know what you want your end result to look like.

Private Sub Workbook_Open()
Application.OnTime TimeValue("07:05:00"), "Sort"
MsgBox "Sort Complete"
Application.OnTime EarliestTime:=TimeValue("07:05:01"), Procedure:="Anniversary", LatestTime:=TimeValue("07:55:00")
End Sub

I apologize but I do not know what the issue is with your code. I have attempted to correct to the best of my knowledge. The code for the second module anniversary is set to run one second after the first one but no later than 55 minutes after the first one. I did this because I did not know how long it will take for the first module to run. Suggest you do some google searches on auto run of codes. I see nothing wrong and do not have an alternate solution for you. Does the anniversary module run on its own?

Good luck.

the code you uploaded missed the quotes ".."around the procedure name of Anniversary...it should look like this "Anniversary", otherwise, it gives the the error you are recieving, the name is a text parameter, and you are trying to pass an undeclared; empty variable instead...

Hope this helps

EDIT-
If you had added
OPTION EXPLICIT
at the top of the page, you would have recieved a "Undeclared Variable" type error, which would have made this an easier trace

And, to be honest, I would not use an Excel/VBA reserved word ... Sort ... as a subroutine name. Bound to be confusing.


Regards, TMS