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?
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?
VBA Code:
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