I wrote this sub:
Sub TextToNumbe()
Dim rCell As Range
Dim sMyString As String
Dim LastRowIndex As Long
LastRowIndex = Cells(Rows.Count, "A").End(xlUp).Row
On Error GoTo ErrorHandle
With Sheets("Sheet1").Range("A1:A10")
.NumberFormat = "General"
.Value = .Value
End With...