runtime error 2147221005(800401f3)
 

Hi

In my workbook, i facing problem like this, can any one guide me to solve
this,

Once i open my work book the error shows like


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