Sub Add_Text_Left()
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)
moretext = InputBox("Enter your Text")
For Each cell In thisrng
cell.Value = moretext & cell.Value
Next
Exit Sub
endit:
MsgBox "only formulas in range"
End Sub

Select the column of numbers then run the macro.

Enter an apostrophe into the inputbox.


Gord Dibben MS Excel MVP

On Wed, 18 Jul 2007 01:38:01 -0700, Numbers into text format in excel <Numbers
into text format in wrote:

I have a file with 10000 numbers and I want them to be in "text" format. I do
the basics (format-cell-text) but only when I insert ' or edit the cell
(F2+ENTER)I have the right results. is there an easier way which is less time
consuming?