Option Explicit

 Private WithEvents App As Application

Private Sub Class_Initialize()
    Set App = Application
End Sub

Private Sub Class_Terminate()
    Set App = Nothing
End Sub

Private Sub App_SheetActivate(ByVal Sh As Object)
    p_RefreshRibbonNow
End Sub

Set XLApp = New CExcelEvents