Close message box after interval

[60john]

Hi there,

I imagine there is a simple solution to this but I can not find an answer to it.

I would like the message box in the following code to close automatically after say 5 seconds. I am guessing that a user form might be the way to go but will defer to wiser council.

Option Explicit
Private Sub Workbook_Open()
    MsgBox "Note that the prices in italics are indicative only. ", vbOKOnly
End Sub

Thanks in advance

 

[VoG]

See if this helps How to: Automatically Dismiss a Message Box

 

[60john]

See if this helps How to: Automatically Dismiss a Message Box

Thanks VoG but unfortunately that didn't work. The pop up appears but does not dissappear unless you click the ok button

 

[60john]

I found this solution elsewhere.

Show user form for specific time interval then close form

Coded as follows:

Private Sub Workbook_Open()
    UserForm1.Show vbModeless
    
    Application.OnTime Now + TimeValue("00:00:03"), "unloadit"
End Sub
Public Sub unloadit()
Unload UserForm1
End Sub

The first part, popping up the user form works fine. But the second part does not. I get a pop up error telling me that the macro may not be available in this workbook or all macros may be disabled.

Any ideas?

 

[VoG]

The code that I posted a link to works perfectly for me.

 

[60john]

I don't know what I was doing wrong VoG. I copied the code directly into a module but still had to click the OK button to clear the message.

I did get the other solution I found working, by the way. I just had to have the public sub in a module and not in the This Workbook