Active application
 

Put this in your ThisWorkbook object.


Code
-------------------

Private Sub Workbook_Open()
Application.Visible = True
UserForm1.Show
End Sub

-------------------


Let me know how it goes, if it doesn't work - show me the code you wer
using so i can get a better idead what you want

--
Message posted from http://www.ExcelForum.com