Automatically Closing a Message Box

[zfitzjarrell]

Hello All,

Does anyone know of a way to instruct a messagebox to close automatically after X number of seconds instead of a user actually clicking on the OK button?

thanks!

 

[NateO]

Yes, try the following:

Sub foo()
Dim WScript As Object
Set WScript = CreateObject("WScript.Shell")
WScript.Popup "One", 1, "Microsoft Excel"
WScript.Popup "Two", 2, "Microsoft Excel"
WScript.Popup "Three", , "Microsoft Excel"
Set WScript = Nothing
End Sub

 

[zfitzjarrell]

Perfect.

Thanks for you help.