a previous question I wanted only number to be shown from a field this worked great code sample below. I want to expand on this and only show numbers the are more than 3 digits together.
For example I have have a cell like "58 YBS1 QWS/ENQ/1501510 BGC". From this I would only want 1501510 to show....
Function RemoveAlpha(Rng As String) As String
Dim Tmp As String
Dim i As Integer
Dim Alpha As String
Tmp = Rng
'Numbers are 48-57
For i = 1 To 255
If i >= 48 And i <= 57 Then GoTo skip
Alpha = Chr(i)
Tmp = Application.Substitute(Tmp, Alpha, "")
RemoveAlpha = Tmp