iLatRow = Cells(Rows.Count,"A").End(xlUp).Row
For i = 1 To iLastRow
Cells(i,"A").Value = "'0" & C ells(i,"A").VAlue
Next i

--
HTH

Bob Phillips

"kayabob" wrote in message
...
I have a series of numbers (SSN) that I need to turn into text, so I want
a
macro that will put an apostrophe and a zero at the beginning of the
numbers.
I know that there are other ways to change a number to text (formatting,
find/replace to add the apostrophe) but for what we are doing, manually
editing to add the apostrophe and zero is the only thing that works. SO..
to
my question. When I make the macro to do this, of course it simply adds
the
apostrophe and zero and repeats the number from the first cell over and
over
again. How can I make it select each cell's new data, move to the
beginning
of the number and add the apostrophe? Here is my macro that is obviously
not
working.

ActiveCell.FormulaR1C1 = "'012365564"
ActiveCell.Offset(1, 0).Range("A1").Select

I see that the problem is that it is picking up the literal from the first
line, but how can I make the macro edit the new numbers in each line and
not
repeat this text over and over.