Private Sub Worksheet_Change(ByVal Target As Range)
    Dim vVal
    If Target.Address(0, 0) = "D3" Then
        With Application
            If .CutCopyMode Then
                vVal = Target.Value
                .EnableEvents = 0
                .Undo
                Target.Value = vVal
                .EnableEvents = 1
            End If
        End With
    End If
End Sub