Should do it. Change f to suit your column. Send Wild Turkey 101.

Sub makequotes()
mc = "f"
For i = 2 To Cells(Rows.Count, mc).End(xlUp).Row
If Cells(i, mc) < "" And Left(Cells(i, mc), 1) < """" Then
Cells(i, mc).Value = """" & Cells(i, mc) & """"
End If
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"booker@mgt" wrote in message
...
If I have some text in a cell and I want to wrap that text in quotes, do
you
know of a simple way to do that


i.e Cell says Whoever answers this question is the greatest

and I want it to be €œWhoever answers this question is the greatest€�

And I want to do that for everything in that particular column?

Thanks