I assume you need to append ' to the beginning of the data. If you need it
at the end, reverse the order of the 2 components after the = sign (around
the & symbol).
Change the r & c ranges to suit your rows & columns.

Sub appendcharacter()
For c = 1 To 10
For r = 1 To 10
Cells(r, c).Value = "'" & Cells(r, c).Value
Next r
Next c
End Sub


--
Ian
--
"WhoC@nItbN0W" wrote in message
...
I need to import my 'excel based' contact list into Outlook2003. However,
to
do this the character ' needs to be appended to all cells if Outlook has
to
read the data.
Any idea on how to do this?

Regards