msg box that times out after 5 seconds

[nouseforaname1982]

I am trying to have a message box pop up and asks if the user wants to exit the macro.
If yes - will end the sub.
If no - will continue running the sub.
If no response in 5 seconds - will continue running the sub.

Thanks in advance for your help

 

[jindon]

try

Sub test()
Dim x
x = CreateObject("WScript.Shell").Popup _
      "Do you want to Stop? ", 5, , vbYesNo + vbQestion
If x = vbYes Then
    MsgBox "Exit Sub"
    Exit Sub
Else
    MsgBox "Continue"
End If
End Sub

 

[nouseforaname1982]

This part of the code does not seem to want to work:

x = CreateObject("WScript.Shell").Popup _
"Do you want to Stop? ", 5, , vbYesNo + vbQestion

The error is:

Compile error:
Expected: end of statement

 

[jindon]

then try

x = CreateObject("WScript.Shell").Popup("Do you want to Stop? ", 5, , vbYesNo + vbQestion)

 

[nouseforaname1982]

Thanks, That works