Macro to Remove Non-Numeric Characters

Sub trimdata()
Dim Rng As Range
Dim WorkRng As Range
Dim rep As String
On Error Resume Next
xTitleId = "Excel Forum"
Set WorkRng = Application.Selection
'Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
Rng.NumberFormat = ("#.###############################")
    xout = ""
    For i = 1 To Len(Rng.Text)
        xTemp = Mid(Rng.Text, i, 1)
        If xTemp Like "[-0-9.]" Then
            xStr = xTemp
        Else
            xStr = ""
        End If
        xout = xout & xStr
    Next i
    If xout = "" Then
        Rng.ClearContents
        Else
            If IsNumeric(xout) Then
                Rng = xout
                    Else
                Rng = ""
            End If
    End If
Next
Selection.NumberFormat = ("0.0############################")
End Sub