WorkbookOpen Event Problems

[keith]

I am trying to launch a userform when the workbook is opened. Following the VBA help files, I created a new class module with the "Public WithEvents App As Application" declaration. Then here is my code:

Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
If Worksheets(Main).Range(C5).Value = 0 Then UserForm1.Show
End Sub

I may be way off base and not doing it right at all.. thanks in advance

[James]

Hi Keith,

Try this:

Private Sub Workbook_Open()
If Worksheets("Sheet1").Range("C5").Value _
= 0 Then
Userform1.Show
End If
End Sub

James

[keith]

thanks for the help -

which module should I put this code in to have the code processed right when the workbook is opened?

[James]

Hi again Keith,

Put it in the "ThisWorkbook"

Jim

[NateO]

In the "ThisWorkbook" module:

Private Sub Workbook_Open() 
If Worksheets("Sheet1").Range("C5").Value _ 
= 0 Then 
Userform1.Show 
End If 
End Sub

In a normal module:

Private Sub auto_Open() 
If Worksheets("Sheet1").Range("C5").Value _ 
= 0 Then 
Userform1.Show 
End If 
End Sub

Hope this helps.

_________________
Cheers, NateO

[ This Message was edited by: NateO on 2002-04-02 19:41 ]

[NateO]

Didn't mean to steal your thunder James, wasn't sure if you were still logged in er not. Have a good eve.

[James]

Hi Nate,

No problem, just glad to be able to help
after all that's what it's all about.

Jim

[NateO]

Agreed. Have a good one.

[keith]

Works Great thanks guys!