sub AppendChar()
Dim cell as Range
for each cell in Range("A1:A4")
cell.Value = "'" & cell.Value
Next
End Sub
--
Regards,
Tom Ogilvy

"Michael Vaughan" wrote in message
...
Hello Everyone,

I am trying to "cut and paste" my schedule from the internet into my Exel
Worksheet. Then, I am trying to import it to my Calendar in Microsoft
Outlook. It will NOT import unless I prefix all my data with a ', So, is
their a routine that I can write that will take a column of data and
append
prefix it with a '. Example:

Data now:

Cell 1A: IND
Cell 2A: LAS
Cell 3A: MDW
Cell 4A: FLL

I need the cells 1A:4A look like this:

Cell 1A: 'IND
Cell 2A: 'LAS
Cell 3A: 'MDW
Cell 4A: 'FLL

Could somebody help me with this??? Thanks.. mv