Message box when opening, show for a set time

[CookieMonster76]

Hi

I've found a couple of ways to display a message box for a set time, this is one of them.

Dim AckTime As Integer, InfoBox As Object
Set InfoBox = CreateObject("WScript.Shell")
AckTime = 10
Select Case InfoBox.Popup("Click OK (this window closes automatically after 10 seconds).", AckTime, "This is your Message Box", 0)
Case 1, -1
Exit Sub
End Select

The works when it's run in an already open workbook, but I want to display a message for a short period when the workbook opens for a short period. Using the code above the message appears but then doesn't go away after 20 seconds.

Is there a way to make it do so?

Thanks

Paul

 

[richh]

Hi Cookie,

Is the code placed within the Workbook.Open() sub? Also, this might be a stupid response regarding the time... since the message appears for double the time you expect, have you tried setting AckTime = 5?

 

[CookieMonster76]

Hi

Yes it is in the Workbook.open () sub - The message box appear just doesn't go away.

Yes, i had changed to 1 and 2 but still didn't work

 

[dmt32]

message appears but then doesn't go away after 20 seconds.

InfoBox.PopUp can be unreliable and does not always hide after set time period

Have a look at @Jaafar Tribak solution here: Your Typical VBA Standard MsgBox Behaving Like A TimeOut PopUp With Added Formatting And Some Cool Animation !

Dave