Thank you. This worked quite well.

"Don Guillett" wrote:

Right click sheet tabview codeinsert thissave workbook
now when you change anything in cells d2: d22 the date will be put in col F

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("d2:d22")) Is Nothing Then
Target.Offset(0, 2) = Date
End If
End Sub

--
Don Guillett
SalesAid Software

"BillyBob" wrote in message
...
I have made a spead sheet to enter statistical data into many cells. I want
to see the actual date of entry in another set of cells. Problem is that
everything I have tried up-dates the date cells to today's date each time
I
open the spread sheet. I do not want to depend on the person entering the
data to also manually enter the date.

"Don Guillett" wrote:

Detail?

--
Don Guillett
SalesAid Software

"BillyBob" wrote in message
...
How can I date stamp a cell entry that will not up-date until the entry
is
changed?