Application.Ontime loop does not execute if the required time is before Now()

[JeffGrant]

This is more of an observation, than a question, but I would like to hear others opinions.

With this loop:

        With Sheet10
        'Use Unique times to avoid duplicates
            TimeToRun = CDate(.Range("AP" & 2 + i).Value)
            RaceIDTimeToRun = .Range("AF" & 2 + i).Value
            Application.OnTime EarliestTime:=TimeValue(TimeToRun), Procedure:="myMacro1", Schedule:=False
            Application.OnTime EarliestTime:=TimeValue(RaceIDTimeToRun), Procedure:="myMacro2", Schedule:=False
        End With

What this does is read in the values to execute the Application.OnTime routine at various scheduled times.

However, what I have found is that if the execution time being read in is before the current time, then no times are set up at all to execute. Generally, I have to put in some manual code that reads in the read value after the current time to make it work.

I haven't found any information about this.

I look forward to hearing your thoughts or being corrected I am approaching this incorrectly.

 

[RoryA]

You know that code is cancelling OnTIme, not setting it?

 

[JeffGrant]

Hi Rory, thanks for that. I ended up figuring that out a short while ago. The usage of Application.OnTime is new to me. I only started with it over the weekend to automate my model. Cheers