For Each cell In Range("A1", Range("A1").End(xlDown))
cell.NumberFormat = "@"
cell.Value = Format(cell.Value, "00000")
Next cell


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Marcin Gajek" wrote in message
...
Hello

I have Excell 2003 on WinXP Home edition.
In column A1 I have value 107, I need 00107 and i need it saved in .CSV
format. I'm converting columns to TextFormat
and excel accepts it but when i want to save it in Csv format i say
something about loosing some formatting. I HAVE to
save file in CSV format with values in column A 00107 not 107...please
help
me !

Thank you.