One way. Change 9 to your column
Sub addapostophe()
mc = 9 'column I
For i = 1 To Cells(Rows.Count, mc).End(xlUp).Row
Cells(i, mc).Value = "'" & Cells(i, mc)
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Denise C." wrote in message
...
Hello, I need to add an apostrophe to each cell in a long column of
numbers.
I do not want to format them as text or format them as custom - our system
requires the apostrophe at the beginning of the cell. My question is - is
there a way to format one cell with the apostrophe and then copy that
apostrophe down to the other cells?? or can someone write me something
that
will allow me to do it quickly? I want to avoid having to go into each
cell
and put the apostrophe in! Thank you in advance....