XL VBA: message box to close after x seconds... not closing

[2Took]

Hi,

Below code supposed to close the box after 3 seconds... rarely does it work however.

Any way to fix or some other way to accomplish the reliable closing after preset time?

Sub MessageBoxTimer()
    Dim AckTime As Integer, InfoBox As Object
    Set InfoBox = CreateObject("WScript.Shell")
    'Set the message box to close after x seconds
    AckTime = 3
    Select Case InfoBox.Popup("body text.", _
    AckTime, "header text", 0)
        Case 1, -1
            Exit Sub
    End Select
End Sub

 

[RoryA]

That method is notoriously unreliable. I'd suggest making your own userform instead.

 

[2Took]

That method is notoriously unreliable. I'd suggest making your own userform instead.

Is there a simple VBA way to create & display a simple userform, similar to MsgBox -- without having to create it manually?

 

[RoryA]

Not really, no.

You might want to search the forum and see if @Jaafar Tribak has previously posted something for this using API calls.

 

[Jaafar Tribak]

Take a look here:

Your Typical VBA Standard MsgBox Behaving Like A TimeOut PopUp With Added Formatting And Some Cool Animation !

Hi, I have been playing around with this in order to make this kind of plug-and-play timed popup, entirely based on the standard vba MsgBox after having manipulated it with some API calls... A good alternative for the buggy Shell popup. The popup has some cool features such as an optional...

www.mrexcel.com

Or for a lighter alternative :

Set limited time for messagebox pop up

Hi Guys, my code is to copy the value of a cell to clipboard and a popup message box will show. I applied a timer to close the message box in 1 second but it does not work. Please review and help me to rectify it. Thanks. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As...

www.mrexcel.com