Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
With Target
If .Cells.Count > 1 Then Exit Sub
If Intersect(.Cells, Me.Range("C:C")) Is Nothing Then Exit Sub
.Value = Date
.NumberFormat = "dd-mmm-yy"
Cancel = True
End With
End Sub