Limiting Datepicker to cell format

[xcel_rookie]

Hi , I have excel where on few cells I have applied date Picker by hard coding it using below code , but I don't want to do that , I want in my sheet wherever cell is of date format , the moment I double click date picker should be opened , which in this case restricted to range hard coded . Any help ? Also can datepicker be applied on single click rather on double clicking cell ? Any help is welcomeIf Not Intersect(Range("H19:I58"), Target) Is Nothing Then
' Open DatePicker
Set DatePickerForm.Target = Target.Cells(1, 1)
DatePickerForm.Show vbModal
Cancel = True .