Another method... Select all the cells containing "text numbers", Cell
Format them to General and then execute this command in VB's Immediate
Window...

Selection.Formula = Selection.Formula

If you want that as a macro...

Sub MakeTextNumbersToRealNumbers()
With Selection
.NumberFormat = "General"
.Formula = .Formula
End With
End Sub

Just select the cells to be converted and run the macro.

--
Rick (MVP - Excel)


"NOPIK" wrote in message
...
Here what I do to simple convert text with numeric value into a number
(on error set to skip casual text):
For Each c In ActiveSheet.UsedRange.Cells
On Error Resume Next
If c < "" Then
c = CDbl(c)
End If
Next c
On Error GoTo 0