I'm trying to get 3 /'s in an existing cell value. The value for example
would be 01232003 and I want the macro to insert /'s so it turns out to
be 01/23/2003.

What I've been experimenting with is this:

n = "0"
For Each cell In Selection
cell.Value = Left(cell.Value, 2) & "/" & Left(cell.Value, 2) & "/" &
Left(cell.Value, 4)


But this just results in 11/11/1122. It seems to be starting over from
the far left side with each "Left(cell.Value, *).

Any ideas?

Thanks!
RF

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!