The following is not closing after five seconds of no action by the user. Can anyone suggest a reason.
Sub inactivityShellPopUp()
Const ShowDurationSecs As Integer = 5
response = 7
response = CreateObject("WScript.Shell").PopUp( _
"This program will close in " &...