You can use application.undo something like this

Private Sub Worksheet_Change(ByVal Target As Range)
If LCase(Target.Value) = "this" Then Application.Undo
End Sub

If you type in the word this it undoes what was typed back to the previous
value of the cell.
--
HTH...

Jim Thomlinson


"Anton Sommer" wrote:

Hello folks,

when the SheetChange event is thrown a cell got change in the grid, and that
cell I can tell by the property of the target variable. Good, but is there a
chance to restore the old value before the editing took place? (like pushing
the red cross buton when entering somtehing manually).


Thanks

Anton