I have the following code, thanks to people here. How can I get the message
box to pop to the front of all open windows.

Thanks Taffy.



Sub timedmsg()
Dim cTime As Long
Dim WSH As Object

Set WSH = CreateObject("WScript.Shell")
cTime = 30 ' 30 secs
Select Case WSH.Popup("RC Heijunka Card Check Closing", cTime,
"Question", _
vbOKCancel)
Case vbOK: Call ShutDown
Case vbCancel: Call SetTime
Case -1: Call ShutDown

Case Else
End Select

End Sub