Undo changes after Programatically updating a field

I have set some code to run every time a field is updated; it puts the current date into a specified column on the same row as the field being updated. Problem with this is that I cannot undo any changes to the document after that field has been updated

The code is as follows

Private Sub Worksheet_Change(ByVal Target As Range
'The if statement stops the code fro
'doing its job on the top line of the shee
If Not Target.Row = 1 The
Sheet1.Cells.Item(Target.Row, "N") = Now(
End I
End Su

Anyone know how I can acheive this along with the ability to update changes?

Doug
Wed Jan 07 01:23:39 CST 2004

Hi Michael,

This sounds like something that you are trying to do in Excel. As this
newgroup is for Visual Basic as it is Applied to Word, you would be more
likely to get a response to your question if you post to the
microsoft.public.excel.programming newsgroup.

Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.
Hope this helps
Doug Robbins - Word MVP
"Michael" <scriptee@runge.com.au> wrote in message
news:C9F5AB8A-4CDB-45FC-AEE5-F85FD9A1DDA0@microsoft.com...
>I have set some code to run every time a field is updated; it puts the
>current date into a specified column on the same row as the field being
>updated. Problem with this is that I cannot undo any changes to the
>document after that field has been updated.
>
> The code is as follows:
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> 'The if statement stops the code from
> 'doing its job on the top line of the sheet
> If Not Target.Row = 1 Then
> Sheet1.Cells.Item(Target.Row, "N") = Now()
> End If
> End Sub
>
>
> Anyone know how I can acheive this along with the ability to update
> changes?