Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
Select Case .Column
Case 30, 32, 34, 36, 38, 40, 42, 44, 46
If .Row >= 3 Then
Application.EnableEvents = False
.Value = Date
.NumberFormat = "dd/mm/YYYY"
.HorizontalAlignment = xlCenter
Application.EnableEvents = True
End If
End Select
End With
End Sub