Automatically close a userform

[ForSale]

The following isn't working. what am i doing wrong?

UserForm2.Show
Application.Wait (Now() + TimeValue("0:00:04"))
Unload UserForm2

I'm trying to pop up a userform for 4 seconds, then close it.
I initally added some basic shapes - a rectangle and three arrows - an
did the same thing. it worked the first time, but then they wouldn'
pop up anymore, but that's not important.
thanks

 

[Bob Phillips]

The Wait will not execute until the form unloads when it is inline. Put that
code in the Userform Activate event of the userform

Private UserForm_Activate()
Application.Wait (Now() + TimeValue("0:00:04"))
Unload UserForm2
End Sub