Format cell E2 as text.
Sub test()
Range("E2").NumberFormat = "@"
CreateObject("WScript.Shell").Popup "Macro is going to run on scheduled
time.", 2, "Thank you very much for your cooperation"
RunWhen = TimeValue(Range("A1").Value) '<<Range to use???
Application.OnTime EarliestTime:=RunWhen, Procedu=cRunWhat, _
Schedule:=True
End Sub




"Elton Law" wrote:

Hi Friend,

Error message comes on this script ....
It turns yellow ....
RunWhen = TimeValue(Range("E2").Value)
Can you help again ? Thanks
Elton


"JLGWhiz" wrote:

Try this:

Sub StartTimer()

CreateObject("WScript.Shell").Popup "Macro is going to run on scheduled
time.", 2, "Thank you very much for your cooperation"
RunWhen = TimeValue(Range("A1").Value) '<<Range to use???
Application.OnTime EarliestTime:=RunWhen, Procedu=cRunWhat, _
Schedule:=True
End Sub



"Elton Law" wrote in message
...
Dear Expert,
Currently, I am running a time macro ...
I have to change the time in VB script.
Is it pssible for me to set the time in cell E2 and then run the time maco
based on the value in cell E2 ? Thanks


Sub StartTimer()

CreateObject("WScript.Shell").Popup "Macro is going to run on scheduled
time.", 2, "Thank you very much for your cooperation"
RunWhen = TimeSerial(3, 30, 0)
Application.OnTime EarliestTime:=RunWhen, Procedu=cRunWhat, _
Schedule:=True
End Sub