"Обрезка" именованного диапазона

[Paramount]

Уважаемые знатоки, есть головоломка одна.
Прежде всего, файл прикреплен.
В нем есть 2 именованных диапазона (Dates & Clients)

Создал именно имена потому, что возможно появится необходимость добавлять строки выше или столбцы слева. (Возможно это было необязательно, прошу навести примеры альтернативных методов обозначения диапазонов)

Как видим, выполнив процедуру, мы всегда получаем мин. дату = 0.
А мне, грубо говоря, надо чтобы отображалась 01.01.2014.

Соотв. вопрос: как обрезать этот диапазон в момент поиска в нем минимального значения? Была идея объявить диапазон DateArray() как Names ("Dates") и работать с ним, но не особо вышло.

Заранее благодарю за ответы!

[Paramount]

Сообщение от Paramount

Прежде всего, файл прикреплен.

Прошу прощения, забыл вклеить файл

[gling]

Если написать так

'ищем верхнюю границу периода
TheDate1 = InputBox("Используйте разделители:    . или /", "Введите дату расчёта")
TheDate1 = Format(TheDate1, "dd.mm.yyyy")
Names("Dates").RefersToRange.Find(TheDate1 - 1).Select

работает

[Paramount]

Сообщение от Paramount

Как видим, выполнив процедуру, мы всегда получаем мин. дату = 0.
А мне, грубо говоря, надо чтобы отображалась 01.01.2014.

Эта часть кода работает, вопрос во второй части (минимальное значение)

[gling]

Мне не понятна проблема. Что в файле не так? Если удалить дату 01.01.2014 первая дата будет 02.01.2014.

[Paramount]

Благодарю, тема закрыта, решение найдено.