Kent,
Try this:

Sub ShowForm()
UserForm1.Show vbModeless
Application.OnTime Now + TimeValue("00:00:02"), "Unload_Form"
End Sub

Sub Unload_Form()
UserForm1.Hide
End Sub

"Kent" wrote:

I load an userform when the workbook opens. Does anybody know some code which
automatic can unload the userform after some seconds ?