'----------------------------------------------------------------
Private Sub Worksheet_Activate()
    MsgBox "Sheet1ががアクティブになった"
End Sub
'----------------------------------------------------------------
Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Excel.Range, Cancel As Boolean)
    MsgBox "シ−ト上でダブルクリックされました"
End Sub
'----------------------------------------------------------------
Private Sub Worksheet_BeforeRightClick _
(ByVal Target As Excel.Range, Cancel As Boolean)
    MsgBox "シ−ト上で右クリックされました"
End Sub
'----------------------------------------------------------------
Private Sub Worksheet_Calculate()
    MsgBox "このシ−トのデ−タ再計算した"
End Sub
'----------------------------------------------------------------
Private Sub Worksheet_Deactivate()
    MsgBox "Sheet1ががアクティブでなくなった"
End Sub
'----------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
  If Target.Address = Cells(2, 2).Address Then
     MsgBox Target.Address & "のセルが選ばれた"
  End If
End Sub
' これはセル"B2"が選ばれると実行する