Автоматически не запускает макросы ориентированные на ячейки

Dim x, y
 
Private Sub Worksheet_Activate()
    x = [A1].Value
    y = [D10].Value
End Sub
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count = 1 Then
 
        If Target = [A1] Then
            Application.EnableEvents = False
            x = x + Target.Value
            Target.Value = x
            Application.EnableEvents = True
        End If
 
        If Target = [D10] Then
            Application.EnableEvents = False
            y = y + Target.Value
            Target.Value = y
            Application.EnableEvents = True
        End If
 
    End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count = 1 Then
        If Target = [A1] Then x = Target.Value
        If Target = [D10] Then y = Target.Value
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Range, x
    If Target.Cells.Count = 1 Then
        Set r = [d2:o6]
        If Not Intersect(Target, r) Is Nothing Then
            If Target.Row Mod 2 = 0 Then
                Application.EnableEvents = False
                x = Target
                Application.Undo
                Target = Target + x
                Application.EnableEvents = True
            End If
        End If
    End If
End Sub