Преобразовать дату в текст без формул

[kipish_lp]

Здравствуйте, подскажите пожалуйста, как в vba преобразовать 01.01.2010 в "январь". Я знаю, что можно формулой "ТЕКСТ", но мне надо, чтобы без формул.

[ELE-COM]

Selection.NumberFormat = "[$-419]mmmm;@"

[SAS888]

Пусть ячейка "A1" содержит дату. Тогда получить имя месяца можно так:

MsgBox MonthName(Month([A1]))

[IgorGO]

Трудно угадать что Вы хотите получить в итоге.
Если я правильно понял то:
есть ячейка (группа ячееек) с датами типа 01.01.2010, а хочется что бы там был указан месяц.
Отмечаете эти ячейки, правой кнопкой по ним, формат ячейки, выбираете все форматы, в поле тип пишете [$-F419]ММММ
мало того что это без формул, еще и без ВБА.
Но, кажись не угадал с ответом.

[kipish_lp]

есть ячейка (группа ячееек) с датами типа 01.01.2010, а хочется что бы там был указан месяц.

Нет, не там. Если я в макросы залезла, то наверное я умею с форматом ячеек работать.
Все предложенные варианты по отдельности работают, а конкретно в моем макросе нет.
Ситуация какая: Есть макрос сбора данных из разных книг, работает хорошо, просто замечательно. Универсальный для меня. Но в этом месте

sh1.Cells(Shet1 + L1, 10) = Value2(1, m)

m выдает значение 01.01.2010, а надо "Январь"
Понимаю, что надо пример, дам позднее

[SAS888]

Ну, так подставьте вместо m

MonthName(Month(m))

[kipish_lp]

Type mismatch

[SAS888]

Если переменная m - дата, то MonthName(Month(m)) будет содержать имя месяца. Если переменная m - текст, то его нужно преобразовать в дату CDate(m). что такое Value2(1, m), кроме Вас не знает никто. Не хотите выкладывать пример - ищите ошибку самостоятельно.

[kipish_lp]

Приношу свои извинения, вот файлы. Просто раньше не могла, политика организации.
Переименовать названия столбцов не могу, т.к. они мне такими нужны, а вот в файл "(База)" надо именно месяц текстом.