App events behaving differently in diff. versions

[aah-boy]

Hi,

I'm using the code listed below in Excel98 to trap workbooks opening -
so I can do a scan for invalid data. This code works fine except for
workbooks created and attached to Outlook97 messages - I'm currently
using Office98 and all spreadsheets attached using 98 and 2000 work
fine.

Does anyone know why a workbook created in Excel97 will cause this
code to (seemingly) not be entered at all - I tried msgbox as soon as
it loads and it never displays.

I'm now getting deeply confused as to where the fault lies.

Please, any help is much appreciated.

Dave



In workbook.....


Option Explicit

Dim AppClass As New EventClass

Private Sub Workbook_Open()

Set AppClass.App = Application

End Sub


In EventClass module........


Option Explicit

Public WithEvents App As Application

Private Sub App_WorkbookOpen(ByVal Wb As Excel.Workbook)

MsgBox ("Loading: " & Wb.Name)

End Sub