Message Box to appear Thursday midday!

[AJPendragon]

I know this is possible as long as the worksheet is open. Can anyone help me
with the macro that would pop a message up at midday Thursday?

Thanks in anticipation.


Andrew

[Bob Phillips]

Sub PrimeMsgBox()
Dim nTime As Double
nTime = DateSerial(2006, 2, 23) + 0.5
Application.OnTime nTime, "myWarning"
End Sub

Sub myWarning()
MsgBox "some message"
End Sub


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"AJPendragon" <[email protected]> wrote in message
news:[email protected]...
> I know this is possible as long as the worksheet is open. Can anyone help
me
> with the macro that would pop a message up at midday Thursday?
>
> Thanks in anticipation.
>
>
> Andrew