ActiveCell.Value = Trim(Application.Substitute(ActiveCell.Text,chr(16 0),"
"))

worked for me.
--
Regards,
Tom Ogilvy



"Dan T" .(donotspam) wrote in message
...
I have a series of data imported into a spreadsheet. After Importing,
there
is an apostrophie in the first character and two spaces at the end of the
text that the trim function will not remove.
Has anyone seen this error and if so do you know how to remove the
apostrophie and the end spaces?