You can solve this with a Change event as follows:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Range("D" & Target.Row) = Date
End If
End Sub

If you need more help on how to make an event procedure, please post!

Regards,
Stefi

€žPH NEWS€� ezt Ã*rta:

I have a long sample list, (names and telephone no.), once a name and number
are used an outcome code is entered in the end cell like so,
Column A Column B Column C Column D
Name Number Outcome

What I would like to do is have the time automatically entered in column D
once there is an entry in column C and for the time to "freeze", no matter
what other calculations take place.