Try this instead

Dim s As String
Sheets("New Ren Data").Select
Range("A65001").FormulaR1C1 = Date


--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"flow23" wrote in message
...
I have a macro that basically put current date in a cell

Dim d As Date
Dim s As String
Sheets("New Ren Data").Select
Range("a65001").Select

d = Now()
s = d
Selection.FormulaR1C1 = s

However the problem is that when I look at the value in the formula bar

its shows say for eg. today is 02/08/2006 09:43:2
It should show. 08/02/2006 instead.


any suggestions why ITs doing wrong?