software

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, procedu=quot;The_Subquot;, _
schedule:=True
End Sub

Sub The_Sub()ActiveWorkbook.RefreshAll
StartTimer

End SubThis makes more sense

Sub StartTimer()

RunWhen = Date 1 TimeSerial(12, 0, 0)
Application.OnTime earliesttime:=RunWhen, procedu=quot;The_Subquot;, _
schedule:=True
End Sub

--
HTH

Bob Phillips

(remove xxx from email address if mailing direct)

gt; wrote in message oups.com...
gt; I want to refresh my data every day at 12am. Does something like this
gt; make sence?
gt;
gt; Public RunWhen As Double
gt;
gt; Sub StartTimer()
gt;
gt; RunWhen = Time() = #12:00:00 AM# TimeSerial(24, 0, 0)
gt; Application.OnTime earliesttime:=RunWhen, procedu=quot;The_Subquot;, _
gt; schedule:=True
gt; End Sub
gt;
gt; Sub The_Sub()
gt;
gt;
gt; ActiveWorkbook.RefreshAll
gt; StartTimer
gt;
gt; End Sub
gt;
You have more responses at your other thread.
wrote:
gt;
gt; I want to refresh my data every day at 12am. Does something like this
gt; make sence?
gt;
gt; Public RunWhen As Double
gt;
gt; Sub StartTimer()
gt;
gt; RunWhen = Time() = #12:00:00 AM# TimeSerial(24, 0, 0)
gt; Application.OnTime earliesttime:=RunWhen, procedu=quot;The_Subquot;, _
gt; schedule:=True
gt; End Sub
gt;
gt; Sub The_Sub()
gt;
gt; ActiveWorkbook.RefreshAll
gt; StartTimer
gt;
gt; End Sub

--

Dave Peterson