Thanks Tom,

Tat works fine. Changed cell to ActiveCell, except in For Each ... Next
Loop which generates an error. How do you loop through a range?

Tony
"Tom Ogilvy" wrote in message
...
Sub AddApostrophe()
for each cell in Selection
if not cell.hasformula then
cell.Value = "'" & cell.Value
end if
Next
End sub

--
Regards,
Tom Ogilvy


"Tony Wainwright" wrote in message
...
Hi guys

I am writing an Access d/b that uses an Excel spreadsheet as it's data
source. The spreadsheet contains about 24,000 rows. I have noticed
that
in
some of the columns numbers are formatted with an apostrophe. I would
like
to create a routine that searches through specified columns and adds an
apostrophe to the start of each entry, but I am not that familiar with
Excel. Does anyone know where I might find such a routine