Доброе время суток спряниками и сблинами!

Делаю

Set R = conn.Execute("select * from F_B01('" & D1 & "','" & D2 & "') order by F1")
Row = 2
While Not R.EOF
With Target.Range("$A$1").Offset(Row, 0)
.Value = "01." & R(0) & "." & Год
.NumberFormat = "[$-419]mmmm;@"
...
но после выполнения программы в поле остается 01.01.2009. Но если перейти в режим редактирования и нажать Enter формат становится "Январь", какой и требуется.

Как сделать так, чтобы сразу было "Январь" ?

Удачи!

ничего не изменилось

Спасибо! :-)

.Value = Format("01." & R(0) & "." & Год, "mmmm")

отрабатывает как надо...