runtime error 2147221005(800401f3)

[deen]

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

 

[JLatham]

first, you don't need the Load UserForm1 statement - the form will be loaded
at the UserForm1.Show statement.

I suspect the error is somewhere within the coding of the UserForm1 itself.
Probably best way to find it is to put a STOP statement in the form's
..Initialize event and then use [F8] to step through things while it opens and
see where it errors and determine what's causing the error, which helps
determine how to fix it.