Application undo after a cell was moved

Hello, I need help with this. I want to prevent cell A1 to be modified, and I use this code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1")) Is Nothing Then
Application.EnableEvents = False
MsgBox "Denied"
Application.Undo
Application.EnableEvents = True
Exit Sub
End If

End Sub

This code works, but when I cut the cell A1 and paste it to another cell, the code does not work anymore. The cell A1 become clear and its value move to the cell I paste it.