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