How to validate and -if invalid- undo an entry?

[serdar]

Private Sub Worksheet_Change(ByVal Target As Range)

If (expression) Then
Application.Undo


End Sub


This works but a flashing occurs. What to do?

 

[serdar]

....no flashing occurs at all. I'm not gonna ask "too fast questions" again,
sorry