ChangeTextNumberToNumber()

Sub Edit_ChangeTextNumberToNumber()
    Call ASAPChkRange
    If MsgBox("Do you want to convert 'textnumbers' to actual numbers?", vbQuestion + vbOKCancel, AT & " - Convert text to numbers") = vbCancel Then Exit Sub
    Application.Run "'ASAP Utilities.xla'!ASAPReBuildRange"
    Dim varStatusCalculation As Variant
    varStatusCalculation = Application.Calculation
    Application.Calculation = xlCalculationManual
    Application.StatusBar = "Now changing textnumbers to numbers..."
    On Error Resume Next
    For Each rngCel In Selection
        If Not IsError(rngCel) Then
            rngCel.FormulaLocal = rngCel.FormulaLocal
        End If
    Next
    Application.StatusBar = False
    Application.Calculation = varStatusCalculation
End Sub