Need UDF to remove non numeric characters

[Tardisgx]

I found this How to remove all non alphanumeric characters from a string except period and space in excel?
which is a UDF to remove the opposite; nonalphanumeric characters.
I don't have a list of what classifies as a non-numeric.
I'd want to intergrate it in a macro like shown in the top answer. Please help

 

[Fluff]

How about

Function NumericOnly(strSource As String) As String
    Dim i As Integer
    Dim strResult As String

    For i = 1 To Len(strSource)
        Select Case Asc(Mid(strSource, i, 1))
            Case 48 To 57
                strResult = strResult & Mid(strSource, i, 1)
        End Select
    Next
    NumericOnly = strResult
End Function

 

[Tardisgx]

Cool thank you I put this into a sheet macro

Sub CleanAll()    

    Dim rng As Range


    For Each rng In Selection.SpecialCells(xlCellTypeConstants, 23) 'adjust sheetname and range accordingly
        rng.Value = NumericOnly(rng.Value)
    Next
End Sub

 

[Fluff]

Glad to help & thanks for the feedback