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