adding date with double click

[aoc]

hi,

how can I add the day and month like 29.03 when I double click any cell in column D ?

regards

[Charlize]

[VBA]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Selection.Count > 1 Then Exit Sub
If Target.Column = 4 Then
Target.NumberFormat = "dd/mm"
Target.Value = Date
Cancel = True
End If
End Sub[/VBA]Charlize

[Simon Lloyd]

Hi, format column D as custom and then dd.mm then add this to the worksheet code module:
[VBA]
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("D")) Is Nothing Then
Target.Value = Date
Cancel = True
End If
End Sub
[/VBA]Regards,
Simon

[aoc]

hi,

charlize's and yours does not work, what is the problem ?

[Simon Lloyd]

Works fine for me!, post your workbok or example workbook!

[aoc]

hi,

please check the attached file.code is in module 4

regards

[aoc]

hi,

charlizes works.I changed the place of code.yours has format problem

thanks

[Simon Lloyd]

Aoc, the code supplied by both myself and Charlize was to be placed in the Worksheet code module NOT a standard module as per our instructions!

Regards,
Simon