Display a message box with a timeout value
问题 The question comes from code like this. Set scriptshell = CreateObject("wscript.shell") Const TIMEOUT_IN_SECS = 60 Select Case scriptshell.popup("Yes or No? leaving this window for 1 min is the same as clicking Yes.", TIMEOUT_IN_SECS, "popup window", vbYesNo + vbQuestion) Case vbYes Call MethodFoo Case -1 Call MethodFoo End Select This is a simple way to display a message box with a timeout from VBA (or VB6). In Excel 2007 (apparently also happens in Internet Explorer at times) the popup