This looks funny to me:

RunWhen = Time() = #12:00:00 AM# + TimeSerial(24, 0, 0)

Maybe:

RunWhen = date + TimeSerial(23, 59, 59)
or
RunWhen = date + 1

Chip Pearson has lots of instructions at:
http://www.cpearson.com/excel/ontime.htm


AKorsakova@gmail.com wrote:
>
> I want to refresh my data every day at 12am. Does something like this
> make sence?
>
> Public RunWhen As Double
>
> Sub StartTimer()
>
> RunWhen = Time() = #12:00:00 AM# + TimeSerial(24, 0, 0)
> Application.OnTime earliesttime:=RunWhen, procedure:="The_Sub", _
> schedule:=True
> End Sub
>
> Sub The_Sub()
>
> ActiveWorkbook.RefreshAll
> StartTimer
>
> End Sub

--

Dave Peterson