79249086

Date: 2024-12-03 20:32:20
Score: 1
Natty:
Report link

Final solution take Tim Williams Events on XLAM Add-in not connected to Workbook

 'Class module with name AppEvents
 Option Explicit
 Private AppEvt As AppEvents
 Private Sub Workbook_Open()
     Set AppEvt = New AppEvents
     Set AppEvt.App = Application
     MsgBox "Workbook_Open"
 End Sub

 'ThisWorkbook
 Option Explicit
 Public WithEvents App As Application
 Private Sub App_SheetChange(ByVal Sh As Object, ByVal Target As Range)
     MsgBox "App_WorksheetChange"
 End Sub

XLAM

Reasons:
  • Probably link only (1):
  • Has code block (-0.5):
  • Self-answer (0.5):
Posted by: Viacheslav