I found the below code posted around Nov 2005:

In a new Class module name clsXLEvents
Option Explicit
Private WithEvents xlApp As Excel.Application


Private Sub Class_Initialize()
Set xlApp = Excel.Application
End Sub


Private Sub xlApp_WorkbookBeforeSave(ByVal Wb As Workbook, ByVal
SaveAsUI As
Boolean, Cancel As Boolean)
MsgBox "Tada"
End Sub


In a standard module named whatever
Option Explicit


Public xlApp As clsXLEvents


And in ThisWorkbook
Option Explicit


Private Sub Workbook_AddinInstall()
Set xlApp = New clsXLEvents
End Sub


Private Sub Workbook_AddinUninstall()
Set xlApp = Nothing
End Sub


Private Sub Workbook_Open()
Set xlApp = New clsXLEvents
End Sub

---

My question is is there a way to make a global Workbook_Open code?

I tried adding:

Private Sub xlApp_Workbook_Open(ByVal Wb As Workbook)

MsgBox "Open"

End Sub

In 'clsXLSEvents', but to no avail.