hi gord.
this was great code but i need range to be a1:aj1 and date to be in ak.
i have over 4000 rows that i need date to always appear in col ak.
how do i change code?
thanks.

"Gord Dibben" wrote:

medavino

Right-click on the worksheet tab and "View Code"

Copy/paste this code into that sheet module.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range("A1:A10")) Is Nothing Then
With Target
If .Value < "" Then
.Offset(0, 1).Value = Format(Now, "dd mmm yyyy hh:mm:ss")
End If
End With
End If
ws_exit:
Application.EnableEvents = True
End Sub

Any time you make a change in a cell in A1:A10 range, the date/time will appear
in corresponding cell in column B
Gord Dibben MS Excel MVP

i am using excel 2003 and need to automatically insert date into a cell when
i update info in a row.
others need to know how current data in a row is.
any thoughts out there?
please keep in mind that although not a total beginner, certain areas in
excel i have never used.
thanks in advance.