One way:

Dim rCell As Range
For Each rCell In Range("DateRange")
With rCell
.Value = Date
.NumberFormat = "dd mmmm yyyy"
End With
Next rCell

In article ,
"Jon" wrote:

Hi, sorry to bother you all with a mundane problem but my
help file won't work and i can't get anything out of it.

i've got a program which needs the date putting in very
often. a userform pops up at the beginning to check that
it has the correct date, and then fills all the cells in
automatically.

My problem is the format of the date in the userform, i
need: 10 August 2004, but it always comes up with )
08/10/2004, the american format, i think.I have tried
formatting the cell, but it doesn't do it automatically
and it comes up with 08 October 2004 when you change it
manually.

Thanks for your help

Is there a way of forcing excel to put the date in the
desired format.