Hi Frank,
I have tried it but I must be doing something wrong, since nothing seems to
happen...
I have put your code in the worksheet module, and then I have tried to
modify some cells in the range from A1 to A100, but as said, nothing has
happened!

Could you please help me again?
Thank you!
Best regards,

Valeria

"Frank Kabel" wrote:

Hi
put the following code in your worksheet module:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Me.Range("A1:A100")) Is Nothing Then
Exit Sub
End If
If Target.Cells.Count 1 Then Exit Sub
On Error GoTo errhandler
Application.EnableEvents = False
With Target
.Offset(0, 1).Value = Application.UserName
.Offset(0, 2).Value = Format(Date, "DD-MMM-YYYY")
End With

errhandler:
Application.EnableEvents = True
End Sub

--
Regards
Frank Kabel
Frankfurt, Germany

"Valeria" schrieb im Newsbeitrag
...
Dear Experts,
I have a spreadheet that many people are inputing, and I would like
to
capture the name of the last person who updated a certain cell in the
nearby
cell (well, inputs in one column, changes tracking in the nearby
column).
I would like to do so through some VBA code, could you please help
me?

Many, many thanks in advance!
Best regards,
--
Valeria