If you want minimal typing and no formulas to clean up....................

Sub Add_Text_Left_Right()
Dim Cell As Range
Dim moretext As String
Dim thisrng As Range
On Error GoTo endit
Set thisrng = Range(ActiveCell.Address & "," & Selection.Address) _
.SpecialCells(xlCellTypeConstants, xlTextValues)
moretext = InputBox("Enter your Text")
For Each Cell In thisrng
Cell.Value = moretext & Cell.Value & moretext
Next
Exit Sub
endit:
MsgBox "only formulas or numbers in range"
End Sub

Select the column.....................Enter " in the Inputbox.


Gord Dibben MS Excel MVP


On Fri, 12 Dec 2008 05:29:00 -0800, NCdesigner
wrote:

I need to add double quotes at the beginning and end of all entries in a very
long column. How can I do this without typing manually?