Macro to add 0 to a cell containing numbers in Text format

[bits32]

Hi guys. i would like to seek assistance regarding macro.
- user to select the cell / range of cells containing numbers
60009
47607
47609
47615

- macro required to do the following:
1) Add 0 to each number
60009 --> 060009
47607 --> 047607
47609 --> 047609
47615 --> 047615

2) Align text to Right

that's all for now. thanks and best regards.

 

[VoG]

Try

Sub AddZero()
Dim c As Range
For Each c In Selection
    With c
        .NumberFormat = "@"
        .Value = "0" & CStr(.Value)
        .HorizontalAlignment = xlRight
    End With
Next c
End Sub

 

[bits32]

thanks a lot! this will do :D