Please amend to your needs:
For Each c In Range("A1:A3")
c.Value = "'" & c.Value
Next c

HTH
Cordially
Pascal

"Shari" a écrit dans le message de news:
...
I have already done that. I need to know how to insert an apostrophe into
each cell because they are numbers, being exported into Access and there
is a
glitch trying to import it.

Please tell me how to insert an apostrophe in each cell.

"papou" wrote:

Hello Shari
Format your cells as text.

HTH
Cordially
Pascal

"Shari" a écrit dans le message de
news:
...
For exporting, I am trying to insert an apostrophe in each cell in one
of
my
columns that contains numbers. There are over 800 records, how do I do
this
without having to go to each cell and do it manually?