Changeイベントのイベントパラメータとして渡されてくるTargetのセル範囲は値の変更があった場所です。Target.Addressをチェックして、処理を行いたい範囲以外の場合はすぐにEXIT SUBすれば、目的の動作になります。
方法2
Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) MsgBox 1 End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.EnableEvents = False Range("A1").Value = Range("A1").Value + 1 Application.EnableEvents = True End Sub