Thank goodness for that, I was out of ideas.

Start at row 2

Sub ReformatDates()
Dim iLastRow As Long
Dim i As Long

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To iLastRow
With Cells(i, "A")
.Value = (Mid(.Value, 4, 3) & Left(.Value, 3) & _
Right(.Value, Len(.Value) - 6))
End With
Next i

End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"snowing" wrote in
message ...

Sorry man, my mistake, working now.
My date in regional options was set wrong, I thing that was causing it
to not do anything.

Is there a way I can get the forumla to skip the first cell, example
start with cell A2 ?


--
snowing
------------------------------------------------------------------------
snowing's Profile:
http://www.excelforum.com/member.php...o&userid=34576
View this thread: http://www.excelforum.com/showthread...hreadid=558237