I need to have a message box (vbokonly) close automatically if it has been
open for longer than 10 seconds.

thanks

I think all code execution stops while a message box or input box is
displayed. You could make your own Userform to look like a Msgbox and
use the ontime method to close it after a period of time.

ed wrote:
> I need to have a message box (vbokonly) close automatically if it has been
> open for longer than 10 seconds.
>
> thanks

Here is some code for a timed message box...

'***requires reference to "Windows Script Host Object Model"
Public Sub MessageTest()
Dim SH As IWshRuntimeLibrary.WshShell
Dim Res As Long

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

End Sub
--
HTH...

Jim Thomlinson


"ed" wrote:

> I need to have a message box (vbokonly) close automatically if it has been
> open for longer than 10 seconds.
>
> thanks

Nice Jim!

"Jim Thomlinson" <James_Thomlinson@owfg-Re-Move-This-.com> wrote in message
news:219EBA7B-2B46-4471-860E-(E-Mail Removed)...
> Here is some code for a timed message box...
>
> '***requires reference to "Windows Script Host Object Model"
> Public Sub MessageTest()
> Dim SH As IWshRuntimeLibrary.WshShell
> Dim Res As Long
>
> Set SH = New IWshRuntimeLibrary.WshShell
> Res = SH.Popup(Text:="Click Me", secondstowait:=10, _
> Title:="Hello, World", Type:=vbOKOnly)
>
> End Sub
....