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

Private Sub Worksheet_Change(ByVal Target As Range)

If (expression) Then
Application.Undo


End Sub


This works but a flashing occurs. What to do?

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

"serdar" <[email protected]>, haber iletisinde şunları
yazdı:[email protected]...
> Private Sub Worksheet_Change(ByVal Target As Range)
>
> If (expression) Then
> Application.Undo
>
>
> End Sub
>
>
> This works but a flashing occurs. What to do?
>
>