Проверка с выборкой значений

[marsel_xm]

Здравствуйте, проблема вот в чем: есть ввод в лист "базу" данных из листа "ввод пациента" с помощью макроса, а именно Фио врача фио пациента, время с интервалом в пол часа и ввод даты, нужно чтоб при вводе даты, то есть как мы выбирим дату в столбце предположим D выводилось не занятое время из возможных вариантов на эту дату у этого врача(то есть по нажатию на ячейку B4 (ввод даты с помощью календаря) на листе "ввод пациента")
макрос нажатия на ячейку B4 собственно куда и надо вставить этот код:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("B4"), Target) Is Nothing Then
Calendar.Show
End If
End Sub