Auto Open Userform

[chrisguk]

Hi there,

I have a userform1 in my workbook and created the following code to auto open it when the workbook starts up. The only problem is the userform does not open and I cant understand why:

Private Sub Workbook_Open()
userform1.show
End Sub

Any ideas? for the record im using MS Excel 2007

 

[Richard Schollar]

Have you got Events enabled? Check via the Immediate Window in the VBE: open it with Ctrl+G and type in

?Application.EnableEvents

and check it returns True

 

[chrisguk]

Hi Richard,

It does return true.

Have I put the code in the right place within the VBE area?

 

[Richard Schollar]

Assuming you have that sub in the ThisWorkbook module then it is definitely in the right place. I'm not sure why it wouldn't be working - it certainly did for me in testing!

 

[chrisguk]

Would it have any effect if the code was in an .xlsm workbook?

 

[Richard Schollar]

Nope, that shouldn't effect it. What are your security settings? Do you get asked to enable macros (and presumably you click to Enable rather than disable)?

 

[chrisguk]

All security items are enabled.

 

[Richard Schollar]

Humour me by inserting a standard module (or use an existing one) and amending the workbook_open code to:

'In ThisWorkbook module:


Private Sub Workbook_Open()
Call   Open_My_Userform1
End Sub


'In STANDARD module:

Sub Open_My_Userform1()
userform1.show
End Sub