Hi

Cells(i, 14).Value = Format(DateTime.Month(Now()),"mmmm")

--
Arvi Laanemets
(Don't use my reply address - it's spam-trap)



"noah " wrote in message
...
I am programing VBA code to add the current month and year to separate
columns. I need one column to display the current year, and another to
display the current month in text format. EXAMPLE: May, June, July....
I set this up:
For i = 1 To 5000
Cells(i, 14).Value = DateTime.Month(Now())
Cells(i, 15).Value = DateTime.Year(Now())
Next i

It works great. But my month field is displayed by number.
EXAMPLE: 5, 6, 7....

Does anyone know how I can change this code to display the full text on
month?
Thanks,


---
Message posted from http://www.ExcelForum.com/