Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ws_exit:
Application.EnableEvents = False
Me.Cells(Target.Row, "A").Value = Format(Date, "dd mmm yyyy")

ws_exit:
Application.EnableEvents = True
End Sub

'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Steph" wrote in message
...
Hi. I have a data sheet that I would like to add, in ColumnA, the date
that
any contents in that given row have been changed. Every row is a unique
set
of data. So any changes made to any data in row 5 will have a the date
inserted in A5. Possible? Thank you!