application On time

[Chris]

Code 1 should execute at 5:19 and run the filecopy. It does nothing.
But if i changed it to code 2 it does work but then it run's it every
time word is starteded instead of only at 5:19 like it should. I am a
bit confused.

Code 1

Sub AutoExec()
Application.OnTime When:=TimeValue("17:19:00"),
Name:="ksg.module1.FileCopyToA"
End Sub


Code 2



Sub AutoExec()
Application.OnTime When:="17:19:00", Name:="ksg.module1.FileCopyToA"
End Sub