Extract Number from Text String in Excel Coding:-

‘ GetNumber By Computersadda

Function GETNUMBER(ALLC As Range)
Dim a As Integer
Dim NUMBER As Long

For a = 1 To Len(ALLC)

If IsNumeric(Mid(ALLC, a, 1)) Then
NUMBER = NUMBER & Mid(ALLC, a, 1)
GETNUMBER = NUMBER
End If

Next

End Function