I have the attached code to sheet! Basically it gives me the user name and
date when a value is altered. What I want to do is for the user to be able
to undo the changes they make.

Any ideas?

Thanks in advance!

Rich :o)


Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column < 15 Then Exit Sub
If Target.Row = 1 Then Exit Sub
If IsEmpty(Target.Offset(0, 9)) Then
Target.Offset(0, 10) = Date
Target.Offset(0, 9) = Application.UserName
End If
End Sub