=TEXT(C146,"000000")
Sub AddZero()
With Range("C146:C500")
.NumberFormat = "@"
.Value = Evaluate(Replace("if(#="""","""",0&#)", "#", .Address))
End With
End Sub
Thank you Rick. Reason I don't add the zero's is that there are more than 100 lines involved. I went to concatenate instead. Thanks to Peter, Phuoc and Barmaster for the input.If you only want the cell to display a single zero in front of the number (the value in the cell does not physically change, only its appearance), then you can use this Custom Format to do it...
\0#
Peter has given you a macro to use if this is not what you wanted.