auto close vba not closing

[andrewb90]

Hello all,

I've been searching online to see how to get a message box to close automatically, The code appears to be what I need, however when I run it, the message box doesn't close. any thoughts?

Sub message()MsgBox "hi"
Dim AckTime As Integer, InfoBox As Object
Set InfoBox = CreateObject("WScript.Shell")
AckTime = 2
Select Case InfoBox.popup("Closing soon...", _
AckTime, "Title", 0)
Case 1, -1
Exit Sub
End Select
End Sub

 

[Michael M]

Have a look at Tushars site

Message for a Duration