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

You would need to build your own record of what the sheet was like before
the user started making changes, then provide a means for them to select to
undo - then replace the changes with the original.

Most macros, when run, cause the undo history to be erased and undo does not
record changes made by a macro.

--
Regards,
Tom Ogilvy

"RICH" wrote in message
...
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

Yep agree with what you're saying. The only prob is to do that the file has
to be saved externally. It's a 2MB file so saving is an issue.

Looks like there isn't an alternative!

Thanks anyway!

Rich :o)


"Tom Ogilvy" wrote in message
...
You would need to build your own record of what the sheet was like before
the user started making changes, then provide a means for them to select
to
undo - then replace the changes with the original.

Most macros, when run, cause the undo history to be erased and undo does
not
record changes made by a macro.

--
Regards,
Tom Ogilvy

"RICH" wrote in message
...
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