Show Msgbox 3 seconds before macro starts running and close that msgbox automatically in 3 seconds

Question

I have following macro as time based run

Application.OnTime TimeValue("12:2:20"), "ADPATEL"

what I want is to popup msg box before 3 sec and close it automatically in 3 seconds

Have tried following method but it didn't close msgbox automatically

   Dim AckTime As Integer, InfoBox As Object

 Set InfoBox = CreateObject("WScript.Shell")
 AckTime = 3
 Select Case InfoBox.Popup("Click OK or do nothing within 3 seconds.", _
 AckTime, "This is your Message Box", 0)

 Case 1, -1
 Exit Sub
End Select

Any help is appriciated

https://stackoverflow.com/questions/4274103/display-a-message-box-with-a-timeout-value — Tim Williams, Dec 24 '20 at 07:30

FaneDuru · Answer 1 · 2020-12-24T08:57:46.017

Try this code, please:

Sub testPopUpMess()
 Select Case CreateObject("wscript.shell").popup("Click OK or do nothing within 3 seconds.", _
                                                            3, "This is your Message Box", 64)
     Case 1: MsgBox "OK": Exit Sub
     Case Else: MsgBox """OK"" button not pressed..."
 End Select
End Sub

Anyhow, your code should work as it is... I only avoided variables to be declared and split the messages in case of pressing "OK" or closing by itself.

Do you use Excel 2007? I heard that it has such a strange behavior. If this is the case, you should use an a little more complicated method using API calls. I can help with a piece of code. It looks that Tim Williams pointed for such a solution.

Show Msgbox 3 seconds before macro starts running and close that msgbox automatically in 3 seconds

1 Answers1