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


--
Ian
--
"scasawyer" wrote in message
...
Hello All
I need a script to add a 0 infront of a column of numbers that are in text
format.

Thanks Scott