Automatically Refreshing Data at 12am
 

I want to refresh my data automatically at 12am every day. 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="The_Sub", _
schedule:=True
End Sub


Sub The_Sub()


ActiveWorkbook.RefreshAll
StartTimer


End Sub