If you just need them to be text, format the column as text.
If you need that extra character
iLastRow = Cells(Rows.Count,"A").End(xlUp).Row
For i = 1 to iLastRow
Cells(i,"A").Value = "'" & Cells(i,"A").Value
Next i
--
HTH
RP
(remove nothere from the email address if mailing direct)
"jnycks" wrote in message
...
I have a column of numbers 1,800 rows long that needs an ' in front of
every
row. How do I do this?
|