NYBoy, here is one way, this is worksheet code, right click on the worksheet
tab and view code, paste in this code
Private Sub Worksheet_Change(ByVal Target As Range)
'will put the date in column B when data is put in A2:A20
'change range as needed
On Error GoTo E
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("A2:A20")) Is Nothing Then
With Target
.Offset(0, 1).Value = Format(Date, "mm/dd/yyyy")
End With
End If
E:
Application.EnableEvents = True
End Sub
You may also want to have a look here for more ways to do it
http://www.mcgimpsey.com/excel/timestamp.html
--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 2002 & 2003
"NYBoy" <(E-Mail Removed)> wrote in
message news:(E-Mail Removed)...
>
> I like to add today's date next to the cell value.
> Everytime the cell is modified, I want the date to be updated
> automatically to today's date.
>
> Any help is appreciated.
>
> NYBoy
>
>
> --
> NYBoy
> ------------------------------------------------------------------------
> NYBoy's Profile:
http://www.excelforum.com/member.php...fo&userid=8360
> View this thread: http://www.excelforum.com/showthread...hreadid=472219
>