Hej

denna kod är nära det du söker.

Sub Test1()
Dim AckTime As Integer, InfoBox As Object
Set InfoBox = CreateObject("WScript.Shell")
AckTime = 3
Select Case InfoBox.Popup("Click OK or do nothing within 3 seconds.", _
AckTime, "This is your Message Box", 0)
Case 1, -1
Exit Sub
End Select
End Sub

ska inte ta åt mig äran för koden,hittade den på nätet och den funkade för mig.
AckTime är antalet sekunder du vill vänta innan den stängs så vill du ha 5 sek så ändra det värdet. ibland tar det lite längre tid än 3 sek.

testa på ett tomt blad och se om det funkar som du vill