In the userform activate event, make a call to a closedown routine with
ontime.

Private Sub UserForm_Activate()

Application.OnTime Now + TimeValue("00:00:05"), "CloseMe" '5 secs
End Sub


and in a standard code module, add the close code


Sub CloseMe()
Unload UserForm1
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


wrote in message
oups.com...
I have a program that opens up links to word documents on a server,
what i want to do is after a link has been selected a userform displays
telling the user that the link is loading, at the moment i get the form
up but the code stops until i close the userform.