UF - soll automatisch schliessen

Sub Prozedur soll eine UserForm automatisch starten
und nach 3-Sekunden automatisch ohne Buttons schliessen.
Die UF wird zwar gestartet und angezeigt mit dem Schliessen nach 3-Sek.
klappt aber nicht.
marc .
Ausschnitt aus VB-Code...
Cells(8, 2).Select
'  Range("B8, B17").Value = "38"
Application.CutCopyMode = False
wb1.Save
UserForm1.Show
Application.Wait Now + TimeSerial(0, 0, 3)
Unload Me
wb1.Close
End Sub