20040415 stored in a cell is either a string, or the number 10,020,415


Dim dDate as Date
sStr = activeCell.Text
dDate = DateValue(right(sStr,2) &"/" & Mid(sStr,5,2) & "/" & Left(sStr,4))

--
Regards,
Tom Ogilvy


"Meme" wrote in message
...
Hi,

I have a problem about date format transfering . For
example, one column containing the date data in the
format like "20040415" , now I want to change it to the
format like "04/15/2004". As always,thanks so much in
advance.

Meme