Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Me.Range("D24:D30")) Is Nothing Then
       
       'Or _
       Not Intersect(Target, Me.Range("J24:J40")) Is Nothing
       
        Dim fecha As Date
        fecha = CalendarForm.GetDate
        
        If fecha <> 0 / 1 / 1900 Then
        Target.value = fecha
        End If
        Cancel = True
    End If
End Sub

