See sample file.
1. Import/copy module "SF_DatePick" To project
2. add code To your sheet. Example:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then
Call SF_DatePick.DatePickinRange(target)
Cancel = True
End If
End Sub
|