Creating a macro to formatt data

[Guest]

Hello

I have a long colum of data in the following format xxxxx, I require the
data to have five zeros before the number.

Example 12345 must be changed to display as 0000012345

 

[Guest]

-> Select the cells you want
-> Click on "Format" menu
-> Click "Cells"
-> Click on "Number" tab
-> Select "Custom" from "Category" list-box
-> Type "000000" in "Type:" textbox
-> Press "OK" Button

*** Please do rate ***

 

[Guest]

You can format it so it displays with a total of 10 digits

If you want it to actually contain 10 digits, then you will have to store it
as a text string

Sub FixData()
Dim cell as Range, s as String
for each cell in Select
s = "00000" & format(cell,"00000")
cell.Value = "'" & s
Next
End Sub

 

[Guest]

Thanks, the 00000##### works just like I need it to.