VBA Wscript Popup not closing?

Hey folks! Here's my code to start:

Sub Alert()
    CreateObject("Wscript.Shell").Popup "This workbook will auto-close in 2 minutes due to inactivity.", 5000, "Auto-Close", 0
End Sub

Basically, I've set up some code on a worksheet to close after a certain amount of inactivity. I read up on these forums and others and people suggested using a Wscript.Shell popup instead of a msgbox that way you could set the inactivity warning to close after a set time instead of having the code hang waiting for a user to hit a button.

The thing is, so far this works great except it also hangs and stops the code. From what I read, that 5000 in the code should specify the box close after 5 seconds, but so far it just waits for a user to click 'ok' on the popup.

How can I alter this code so that the popup closes after a set time without requiring a user to click ok?
Any help would be appreciated!

Originally Posted by mrbusto71

Hey folks! Here's my code to start:

Sub Alert()
    CreateObject("Wscript.Shell").Popup "This workbook will auto-close in 2 minutes due to inactivity.", 5000, "Auto-Close", 0
End Sub

Basically, I've set up some code on a worksheet to close after a certain amount of inactivity. I read up on these forums and others and people suggested using a Wscript.Shell popup instead of a msgbox that way you could set the inactivity warning to close after a set time instead of having the code hang waiting for a user to hit a button.

The thing is, so far this works great except it also hangs and stops the code. From what I read, that 5000 in the code should specify the box close after 5 seconds, but so far it just waits for a user to click 'ok' on the popup.

How can I alter this code so that the popup closes after a set time without requiring a user to click ok?
Any help would be appreciated!

Nevermind folks, was able to make it work by abandoning the wscript popup and instead using a userform with an action in a module set to show the userform instead