Converting Numbers to Text to Keep Leading 0's - Dynamic Range

[ac1212]

Hi,

I am trying to covert numbers in in a column to text in order to keep the leading zero's. I have managed to get the below to work but want to be able to have the range as dynamic not set on the end being row 100.

I need to have all cells with numbers in column A to be 5 characters long with leading zero's if needed.

Thanks for the help!

  Dim cell As Range
   
    Range("A2:A100").NumberFormat = "@"
   
    For Each cell In Range("A2:A100")
        cell = Format(cell, "00000")
    Next cell

 

[Fluff]

Glad to help & thanks for the feedback.

 

[skn]

I have the similar scenario except I want to display a value as (87612E106) instead of 8.7612E+110. Any idea how to deal with this? Please excuse my ignorance. Thanks inadvance.

 

[Fluff]

As this is a different question to the op, please start a thread of your own. Thanks