Sub RearrangeDates()
Dim ary
Dim i As Long, j As Long
Dim iLastRow As Long
iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To iLastRow
With Cells(i, "A")
.Formula = DateSerial(Left(.Value, 4), Mid(.Value, 5, 2),
Right(.Value, 2))
End With
Next i
End Sub
--
HTH
Bob Phillips
(remove nothere from the email address if mailing direct)
"hme" wrote in message
...
Hi Excelpower
Thanks for prompt reply.
The data is in general format and it is requested to change to date
format.
for example:"ABCDEFGH" should change to "GH/EF/ABCD" in date format.
thk,
hme
--
hme
------------------------------------------------------------------------
hme's Profile:
http://www.excelforum.com/member.php...o&userid=15930
View this thread: http://www.excelforum.com/showthread...hreadid=514122