Chris,

Try changing

Range("A2:A" & myDay + 1).FormulaR1C1 = _
"=DATEVALUE(R1C1& "" "" & Row() - 1 & "", " & myYear & """)"


to

Range("A2:A" & myDay + 1).FormulaR1C1 = _
"=DATEVALUE(Row() - 1 & "" "" & R1C1 & "" " & myYear & """)"



HTH,
Bernie
MS Excel MVP


"ChrisMattock" wrote in message
news:ChrisMattock.2aj1z1_1152195304.7639@excelforu m-nospam.com...

No that doesn't work, here are some that do... (thanks a lot for all
this)


=DATEVALUE("8/22/2008")
=DATEVALUE("22-AUG-2008")
=DATEVALUE("2008/02/23")
=DATEVALUE("5-JUL")


--
ChrisMattock
------------------------------------------------------------------------
ChrisMattock's Profile: http://www.excelforum.com/member.php...o&userid=33912
View this thread: http://www.excelforum.com/showthread...hreadid=558817