Automatically close Userform
 

I have an userform that I would like to show and be visible for 5 seconds
when opening an Excel file.

I would just like to show the userform for a certain length of time and
would like it to close without any interaction from the user.

Would appreciate all help. Many thanks in advance.

Automatically close Userform
 

In the workbook_open event activate the userform with something like

userform1.show

then in the userform_activate event paste this code.

Private Sub UserForm_Activate()
PauseTime = 5 ' Set duration in seconds
Start = Timer ' Set start time.
Do While Timer < Start + PauseTime
Loop
Finish = Timer
UserForm1.Hide
End Sub

Mike


"SU" wrote:

I have an userform that I would like to show and be visible for 5 seconds
when opening an Excel file.

I would just like to show the userform for a certain length of time and
would like it to close without any interaction from the user.

Would appreciate all help. Many thanks in advance.

Automatically close Userform
 

See http://www.xldynamic.com/source/xld.xlFAQ0007.html

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"SU" wrote in message
...
I have an userform that I would like to show and be visible for 5 seconds
when opening an Excel file.

I would just like to show the userform for a certain length of time and
would like it to close without any interaction from the user.

Would appreciate all help. Many thanks in advance.