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" wrote in message
...
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