Sub SelfClosingMsgBox()
Dim wsh As Object
Set wsh = CreateObject("WScript.Shell")
wsh.Popup "Hello!", 2, "This closes itself in 2 seconds"
End Sub


--
Jim
"FARAZ QURESHI" wrote in message
...
| What macro should be assigned to a message box to pop up upon opening a
| workbook displaying company logo and disappearing in 2 seconds?