Код не всегда выдает правильный результат

[Maxx]

Всем привет!
В столбце А список дат.
В модуле листа есть код:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 1 And Target.Column = 2 Then
        Application.ScreenUpdating = False
        Dim ra As Range: Set ra = Columns(1)
        GSDate = [B1].Value
            If Not ra.Find(GSDate) Is Nothing Then
                Exit Sub
            Else
                Do While ra.Find(GSDate) Is Nothing
                    GSDate = GSDate + 1
                Loop
                MsgBox "В указанную дату торги не проводились! Выбрана ближайшая следующая дата торгового дня."
            End If
        [B1].Value = GSDate
        Application.ScreenUpdating = True
    End If
End Sub

Если в ячейку B1 ввести дату, а такой не будет с столбце А, то выбирается ближайшая следующая существующая дата.
Код ошибок не выдает, но иногда возвращает неправильный результат.
Например вбиваем 01.01.09, а выдает 02.01.09, хотя такой даты нет.
А вот при 01.01.10 выдает правильно - 11.01.10
В чем засада?

[Dophin]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 1 And Target.Column = 2 Then
        Application.ScreenUpdating = False
        Dim ra As Range
        Dim gsdate As Date
        Set ra = Columns(1)
        gsdate = [B1].Value
            If Not ra.Find(gsdate, LookIn:=xlValues, lookat:=xlWhole) Is Nothing Then
                Exit Sub
            Else
                Do While ra.Find(gsdate) Is Nothing
                    gsdate = CDate(gsdate) + 1
                Loop
                MsgBox "В указанную дату торги не проводились! Выбрана ближайшая следующая дата торгового дня."
            End If
        [B1].Value = gsdate
        Application.ScreenUpdating = True
    End If
End Sub

попробуйте так

[Maxx]

Dophin, благодарю! Теперь все замечательно!

Только вот жму на "Весы", а мне вылезает сообщение, что я не могу второй раз добавить Вам отзыв

Но все-равно, СПАСИБО!