Заполнение xlValidateList значениями коллеции

[m9yt]

Наткнулся на такой код:

Dim list_month() As Variant
list_month = Array("январь", "февраль", "март", "апрель")
With ThisWorkbook.ActiveSheet.UsedRange.Item(1).Validation
    .Delete
    .Add Type:=xlValidateList, Formula1:=Join(list_month, ",")
End With

В нем формируется список, из которого можно выбрать значение для ячейки.
Как мне изменить код, что можно было сформировать список на основе коллекции?
Т.е.:

Dim coll As New Collection
coll.Add("январь")
coll.Add("февраль")
With ThisWorkbook.ActiveSheet.UsedRange.Item(1).Validation
    .Delete
    .Add Type:=xlValidateList, Formula1:= 'Что тут?
End With

[EducatedFool]

Sub test()
    Dim coll As New Collection
    coll.Add ("январь")
    coll.Add ("февраль")
    coll.Add ("март")

    For Each Item In coll
        List$ = List$ & "," & Item
    Next

    With Range("a1:a5").Validation
        .Delete
        .Add Type:=xlValidateList, Formula1:=Mid(List$, 2)
    End With
End Sub

[Hugo121]

Если наткнулись на код - смотрите не наткнитесь на ошибку при открытии файла с длинным сохранённым списком валидации!
Вдруг там не 12 месяцев, а например список сотрудников... с полными именами-отчествами

[m9yt]

EducatedFool, спасибо. Но что делать, если объект коллекции уже содержит запятую? Заменить разделитель? Пробовал ";" - не работает.

[m9yt]

И еще такой вопрос.
На ячейку повешена проверка действительных чисел. Как можно опередить событие валидации? Т.е. при, допустим, нажатии "Enter" у меня вначале редактируется введенный текст (в зависимости от региональных настроек меняется "." на "," или наоборот), а потом уже вызывается валидация. (Замену символов реализовал).

Worksheet_Change не подходит, т.к. событие валидации обрабатывается раньше.

Также интересует, как запретить вставку в ячейку заранее некорректных данных? Т.е. если в ней есть проверка на дату, и откуда-то вставить строку, то проверка не сработает.

[kuklp]

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

Но что делать, если объект коллекции уже содержит запятую? Заменить разделитель? Пробовал ";" - не работает.

Формировать список на листе и давать на него ссылку. Тогда и ограничений на длину строки не будет.

[kuklp]

Или, раз уж Вы все равно макросом обрабатываете ячейку, используйте комбобокс и реализуйте в нем все свои хотелки по проверке.

[m9yt]

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

Или, раз уж Вы все равно макросом обрабатываете ячейку, используйте комбобокс и реализуйте в нем все свои хотелки по проверке.

Лишних элементов добавлять нельзя.
Мне бы просто перехватить процедурку валидации (стандартную, экселевскую, которая срабатывает, когда на ячейку вешается проверка из вкладки "данные")