Hi

For a start:

Option Explicit

Dim OldValue As Variant

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
OldValue = Target(1).Formula
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target(1).Formula < OldValue Then _
MsgBox "Used to be " & CStr(OldValue)
End Sub

Problem is mass changes, as in "select a ton of cells and Delete" or "Paste"
if a ton of cells are copied into the clipboard. There is no Right Way to
deal with those events, you decide. But the Target variable, as you may
know, is the range of all the affected cells. Target(1), as shown, works for
me in most cases.

HTH. Best wishes Harald


"Lulu" skrev i melding
...
In Access there is a property called OldValue. It holds onto the value
when
a field is changed. What I am looking for is something similar in Excel.

I've written a Worksheet_Change event which will look for a value entered
into a cell within a certain specified range to make sure the value hasn't
already been entered elsewhere in the range. The only thing I need is a
way
to retain the OldValue in case I need to recall the value and nullify the
change.

Ideas?

Thanks