Perhaps worth mentioning this method works for some but not for others. The
conclusion from a long discussion last July was if it works - fine - but
don't expect it to work if distributing.

There didn't appear to be anything in common in terms of OS, XL version or
WSHOM.OCX version in systems in which it worked / didn't work, which was
puzzling.

Regards,
Peter T

"Jim Thomlinson" wrote in message
...
Here is some code for you. Note that you need to reference the project to
"Windows Script Host Object Model" (Tools - References -...)

Public Sub MessageTest()
Dim SH As IWshRuntimeLibrary.WshShell
Dim Res As Long

Set SH = New IWshRuntimeLibrary.WshShell
Res = SH.Popup(Text:="Click Me", secondstowait:=2, _
Title:="Hello, World", Type:=vbOKOnly)

End Sub
--
HTH...

Jim Thomlinson


"tom" wrote:

Is there a way to have a Message Box that displays a value and then
disappears after a time delay, say 2 seconds?

I would like to create a key-stroke macro which when I hit <ctrl-t for
example, the macro will run and display a result in a message box.

I'd then like the box to disappear after 2 seconds without the user
having
to click on "Yes".

Thanks for the help.