![](https://images.gutefrage.net/media/user/iInjection/1400589815871_nmmslarge.jpg?v=1400589816000)
![](https://images.gutefrage.net/media/default/user/15_nmmslarge.png?v=1551279448000)
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A3")) Is Nothing Then
Dim OldValue As Variant
Application.EnableEvents = False
Application.Undo
OldValue = Target.Value
Application.Undo
Application.EnableEvents = True
If OldValue <> Target.Value Then
'OldValue to new Cell
End If
End If
End Sub