Try:

=DATE(2000+MID(A1,2,2),MID(A1,4,2),RIGHT(A1,2))

that give me Oct 31, 2003

--
Regards,
Tom Ogilvy

Donnie Stone wrote in message
...
Bob,

I tried your solution and 1031031 equals 7/10/2005.

Donnie

"Bob Phillips" wrote in message
...
Donnie,

Put this formula in B1

=DATE(2000+MID(A1,2,2),RIGHT(A1,2),MID(A1,4,2))

and copy down.

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Donnie Stone" wrote in message
...
I routinely import files from an AS400 to excel and the dates appear
as
follows:

A
1 1031102
2 1031103

A1 equals 11/02/03 & A2 equals 11/03/03.

I'm looking for some help with a macro that would convert the dates
automatically.

Thanks,
Donnie