Adding a 0 in front of a column of numbers

Hello All
I need a script to add a 0 infront of a column of numbers that are in text
format.

Thanks Scott

Sub addzero()
For r = 1 To 100
Cells(r, "A").Value = "0" & Cells(r, "A").Value
Next r
End Sub


--
Ian
--
"scasawyer" <scsawyer@wctel.net> wrote in message
news:%23Zi$5Pj2FHA.2472@TK2MSFTNGP12.phx.gbl...
> Hello All
> I need a script to add a 0 infront of a column of numbers that are in text
> format.
>
> Thanks Scott
>