Baring in mind I'm still a novice at this I thought I'd post this macr
I've just built in case it might help somebody.

This forum has helped me lots of times and I'd like to do my part :))


Code
-------------------
Public Sub quotes()

Dim lastrow As Long, i As Long
Dim first As String, second As String

lastrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastrow

first = Cells(i, "C")
second = Chr(34) & first & Chr(34)
Cells(i, "C") = second
Next i
End Su
-------------------


The code Chr(34) represents quotation marks

If you want to change the wrapping symbols you just have to change th
number

i.e.
Chr(91) = [
Chr(93) = ]

There may be an easier way to do this but I don't know it yet

--
Damin
-----------------------------------------------------------------------
Daminc's Profile: http://www.excelforum.com/member.php...fo&userid=2707
View this thread: http://www.excelforum.com/showthread.php?threadid=48343