for each cell in selection
with cell
.value = datevalue(mid(.value,5,2) & "/" & Mid(.value,7,2) & "/" _
& mid(.value,1,4))
End with
Next

--
Regards,
Tom Ogilvy


"Iris" wrote in message
...
I received some data with the dates in a yyyymmdd format. Although I can
go
in and change this by splitting the data up with the text to column
option,
then concatenate the rows with a "/" in between them, I was wondering if
anyone has put together a macro to do this a bit faster than it takes to
go
through all of these other steps.

Thanks,
--
Acknowledge and Move on.