VBA code for current month

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/

Maybe this will be quicker
Sub monyear()
Range("f1:f5000") = Format(Date, "mmm")
Range("g1:5000") = Format(Date, "yyyy")
End Sub

--
Don Guillett
SalesAid Software

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

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/

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/

Sorry!

Arvi Laanemets


"Arvi Laanemets" wrote in message
...
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/