Are you sure that you want to set text in the cell?
You'll lose some flexibility
as an alternative

With Range("I2")
.Value = Date
.NumberFormat = "dd mmmm yyyy"
End With

--
Patrick Molloy
Microsoft Excel MVP
---------------------------------
I Feel Great!
---------------------------------
"Stuart" wrote in message
...
Many thanks to you both.

Regards.

"sebastienm" wrote in message
...
To display the full month, use 4 'm': dd ddd mmmm yyyy
--
Regards,
Sébastien


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.719 / Virus Database: 475 - Release Date: 12/07/2004