Guten Morgen,
wie müsste ich die Formel ändern das die einegebene Zeit (5Sekunden)
angezeigt heruntergezählt wird.

Sub auto_open()
'
' auto_open Makro
'
'Verweis auf WSH Object Model setzen
Dim WshShell
Dim intMSG As Integer
Set WshShell = CreateObject("Wscript.Shell")
intMSG = WshShell.Popup("Zeitlimit", 5, "Auswahl", 64)
Gruß
Frank