The below code will extract the date part from Column A and write to Column
B. Please try...

If this post helps click Yes
--------------
Jacob Skaria


Dim intRow
intRow = 1
Do While Range("A" & intRow) < ""
Range("B" & intRow) = Format(Range("A" & intRow), "dd-mm-yyyy")
intRow = intRow + 1
Loop