Albert,

Try this code in the Worksheet Selection_Change event:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Enter the address you want to use here
If Target.Address = "$B$1" Then
If Target.Value = "" And Target.Offset(0, -1).Value < "" Then
Target.Value = Now()
End If
End If
End Sub

HTH

Troy

"albert" wrote in message
...
I would like to set up an autodate in an excel spreadsheet. I want the
date
to fill when I enter data into the previous cell, but I do not want the
date
to change when the report is updated or saved. Is this possible in excel.
I
do not want to take the form to access because of user issues.