Don't know how much this will help, but it won't hurt to take a look.

http://www.linxent.com/articles/Erro...s%20String.htm



"Deen" wrote in message
...
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