How do I show the date of an update?

[Odonata]

I'm trying to find a way to automatically show the date a cell is updated.
I'm creating a status report where column A contains text that is updated
frequently. I would like to find a way for column B to show a date of the
most recent update to the column A cell.

This is not the date the spreadsheet is updated, but just the cell in
question.
Thanks!

[Ardus Petus]

Paste following code into your worksheet's code page
(right-click worksheet's tab, select View code)

'----------------------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rRange As Range
Dim rcell As Range

Set rRange = Intersect(Target, Columns("A"))
If Not rRange Is Nothing Then
For Each rcell In rRange
rcell.Offset(0, 1) = Now
Next rcell
End If

End Sub

'----------------------------------------------------------------------------------------

HTH
--
AP

"Odonata" <[email protected]> a écrit dans le message de
news: [email protected]...
> I'm trying to find a way to automatically show the date a cell is updated.
> I'm creating a status report where column A contains text that is updated
> frequently. I would like to find a way for column B to show a date of the
> most recent update to the column A cell.
>
> This is not the date the spreadsheet is updated, but just the cell in
> question.
> Thanks!