Just use formulas

B1: = TEXT(A1,"000000")

--

HTH

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


"Paul" <paulm dot c @ iol dot ie wrote in message
...
Hi,

All the cells in Column B in a worksheet must be 6 chars long. If I have a
string 123 in cell A1 using VBA how would I populate cell B2 with this
value
including leading Zero to fill the gap to 6 characters. Column A could
contain a number with anything between 1 and 6 characters.

So for example the result should be

A B
1 123 000123
2 52 000052
3 52174 052174

Thanks

Paul