Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = "4" Then
Target.Offset(0, 1).Value = Date
End If
End Sub

--
JP




"Chris Thompson" wrote in message
om...
Hopefully, a relatively simple one to answer.

I have a worksheet where column D contains names (selected from a
combo box). I want the cell next to the name (ie column E same row)
to be updated with the current date only when the name is changed.
ie. If the name in D3 is changed the value in E3 becomes todays date.
I only want this though if the information in D3 is changed (ie I do
not want E3 altered if the name picked from the combobox is the same
as the one already in D3 - the names in the combobox are unique by the
way).

If somebody could advise with some code I would be very grateful.

Chris Thompson.