This version works for all cell in column D:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then '4th (D) column
Target.NumberFormat = "hh:mm:ss"
Target.Value = Time
End If
End Sub

Regards,
Stefi

€žBruno€� ezt Ã*rta:

I tried the code would gave me it worked fine for one cell but it doesn't
work for things like $D$1:$D$10.

Is there anyway to return the seconds along a column with that code?