Help with Message Box Auto Dismiss code

[Kemidan2014]

I want a pop up box to automatically close or dismiss after 10 seconds of inactivity. Good has lead me to this code but when i run it the message box does not go away on its own. what could i be missing?

  Dim AckTime As Integer
  Dim box As Object
  Set box = CreateObject("WScript.Shell")
  AckTime = 10
  Select Case box.Popup("Update Complete", AckTime, "Status", 0)
   Case 1, -1
      Sheets("Complaints").Protect Password:="Secret"
      Sheets("AACT").Protect Password:="Secret"
      Application.ScreenUpdating = True
      Application.DisplayAlerts = True
      ThisWorkbook.Save
   End Select

This bit of code is in the middle of other code. Original source i got from the interwebs used "Exit Sub" where all my reprotections and other application settings are now because if i exited on click it left my sheet wide open for all sorts of user input destruction =D

Also i tried simply replacing AckTime with number 10 as the normal syntax just requires a number and that did not work

 

[RoryA]

The Shell.Popup method is just notoriously unreliable.

 

[Kemidan2014]

I see, is there anyway possible that i can set up a simple message box that can close on its own?

its basically just letting the user know the macro they just ran is done running becuase if you run it on its own it actually doesnt look like it did anything, not from the user's perspective

The only reason its an issue right now is because i want the same macro to run when i close the workbook and with that pop up message showing up if someone was to close and walk away they would leave the file locked.

ofcourse removing the message altogether would by my last resort. Hoping for a solution

 

[RoryA]

Using a userform is the simplest solution. You can then code a loop in it so that it closes after a set time.

 

[Kemidan2014]

Ooo, ill have to google that then, I've never played with User forms before, Thanks for your advice I'll let you know how it works out

 

[Kemidan2014]

your right changing it to a User form works perfectly thank you