Hi,

In XL2003, I can run the solution posted by me and the one by Leith without
setting this reference.

Mike

"Orion Cochrane" wrote:

Set a reference to Windows Script Host Object Model (Tools References).
Copy and paste the TimedMsgBox code and try it. It works for me.
--
I am running on Office 2003, unless otherwise stated.


"EXCELMACROS" wrote:

Sorry Leith, it did not work. I have to click "OK" for it to close...
--
Thank you...


"Leith Ross" wrote:


Hello EXCELMACROS,

Here is macro to close the dialog after 5 seconds. You can change this
to suite your needs.

Code:
--------------------

Sub TimedMsgBox()

Dim Msg As String
Dim Secs As Long
Dim Wsh As Object

Title = "Test"
Msg = "This will close in 5 seconds."
Secs = 5

Set Wsh = CreateObject("WScript.Shell")
RetVal = Wsh.Popup(Msg, Secs, Title, vbInformation + vbOKOnly)
Set Wsh = Nothing

End Sub

--------------------

Sincerely,
Leith Ross


--
Leith Ross
------------------------------------------------------------------------
Leith Ross's Profile: http://www.thecodecage.com/forumz/member.php?userid=75
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=45231