For i = 1 To 5000
Cells(i, 14).Value = Format(Date,"yyyy")
Cells(i, 15).Value = Foramt(Date,"mmmm")
Next i


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"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/