Private WithEvents XLApp As Excel.Application
 
Private Sub Workbook_Open()
Set XLApp = Excel.Application
End Sub
 
Private Sub XLApp_SheetSelectionChange(ByVal Sh As Object, ByVal Target As _
  Range)
    'DO Something...
     MsgBox "Happiness is only real when shared"
End Sub

Happiness is only real when shared