Maybe you should use the correct formal syntax:

eg
Application.OnTime _
    When:="19:36:00", _
    Name:="KSG.Module1.Testing1" _
    Tolerance:=TimeValue("00:30:00")

should run the macro at 19:36:00 or for half an hour after that time if the
system is busy.

Each time you open Word between 19:36 and 20:06 the macro should run

Eddie

Hi Chris,

I was playing around with this all day. Nothing worked.
Seems nobody here had a really good idea.

I then removed the ever desastrous Adobe "PDFMaker.dot".
With PDFMaker present, my autoexec wouldn't executed at all.
No wonder, as there is probably an autoexec in PDFMaker.

Still no success.

I remembered, that

Application.OnTime _
When:=Now + TimeValue(...)...

most often worked. Not to say always.
But life is a long song.

So I arrived at that:

Sub AutoExec()
Dim strTm1 As String ' a string representing a time
Dim strTm2 As String ' a string representing a time
Dim lngScs As Long   ' seconds

strTm1 = "17:35:00" ' start makro at this time
' get the number of seconds from now til then
lngScs = DateDiff("s", Time, strTm1) ' seconds

strTm2 = TimeString(lngScs)

Application.OnTime _
When:=Now + TimeValue(TimeString(lngScs)), _
Name:="NewMacros.Test5431"
End Sub
' ---
Public Function TimeString(ByVal Secs As Long) As String
Dim hh As Long
Dim mm As Long
Dim ss As Long
hh = Secs - Secs Mod 3600
hh = hh / 3600
Secs = Secs - hh * 3600
mm = Secs - Secs Mod 60
mm = mm / 60
Secs = Secs - mm * 60
ss = Secs
TimeString = Format(hh, "00") & ":"
TimeString = TimeString & Format(mm, "00")
TimeString = TimeString & ":" & Format(ss, "00")
End Function

There must be more clever ways of building
a string representing a time from a number of seconds
(from midnight). But before searching for a day
for a ready to use function, I'd rather do it myself.

HTH

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"