Excel - Fecha con doble click

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

On Error Resume Next

If Not Intersect(Target, Range("A1:A10")) Is Nothing Then  '//Acotando rango...

   Target.Value = Date

   Cancel = True

End If

End Sub