excel - 特定のイベントを無効にする

Question

ボタンを使用して Application.EnableEvents を切り替えています。

Sub Button1_Click()
If ActiveSheet.Shapes("Button 1").TextFrame.Characters.Text = "Disable Events" Then
    ActiveSheet.Shapes("Button 1").TextFrame.Characters.Text = "Enable Events"
    Application.EnableEvents = False
Else
    ActiveSheet.Shapes("Button 1").TextFrame.Characters.Text = "Disable Events"
    Application.EnableEvents = True
End If
End Sub

SelectionChange無効にせずに無効にするにはどうすればよいChangeですか?