Userform nach Zeitablauf schließen
12.03.2003 12:20:49
Marco
ich habe folgendes Makro eingestellt, doch leider wird die Userform nach Ablauf der 2 Sekunden nicht geschlossen.
Weiß jemand einen Rat?
Private Sub Workbook_Open()
Dim Start, Pause
UserForm1.Show
Pause = 2.0
Start = Timer
Do While Timer < Start + Pause
Loop
UserForm1.Hide
Unload UserForm1
End Sub