Hi Booshi,

Try:

Set srcRng = Range("A1:A10")
Set destRng = Range("D1")

srcRng.Copy destRng
destRng.Resize(srcRng.Count).NumberFormat = "0"

---
Regards,
Norman



"booshi" wrote in message
...
Please advise how to copy a column of the following date format as text
into another column.

Selection.NumberFormatLocal = "yyyy-mm"

eg Instead of 2003-0,1 4-Jan-2003 returns to 37625