Why don't you step through your code and tell us exactly where it has an error.

"Deen" wrote:

Hi

I'm facing problem in ecexl once i open the work book , this below error

runtime error 2147221005(800401f3)

Invalid class string


Private Sub Workbook_Open()
Sheets("face").Select
Range("A1").Select
Application.ScreenUpdating = False
Sheets("FOR").Select
Range("A1").Select
Load UserForm1
Application.ScreenUpdating = True
UserForm1.Show
End Sub