Run procedure at the top of the hour

[Av8tordude]

I'm running a procedure if the current time is greater than (e.g. 09:00 AM). if the user opens the workbook (e.g. 09:38 AM), I would like to run the procedure immediately and then run at the top of every hour after. How can I accomplish this task?

Thanks

if TimeValue(Now) > TimeValue("09:30:00 AM") then
RunStats = Now + TimeSerial(0, 30, 0)
Application.OnTime RunStats, "MarketStats", , True
end if

 

[James006]

Hi,
Why don't you simply have your Time tested with 0 minutes and 0 seconds ...

=AND(MINUTE(A1)=0,SECOND(A1)=0)

 

[Av8tordude]

That something to consider, but it doesn't address running the procedure every hour at the top of the hour. I would like to run the procedure at the top of each hour.

 

[James006]

That something to consider, but it doesn't address running the procedure every hour at the top of the hour. I would like to run the procedure at the top of each hour.

Really ??? ...