Hi

i wrote such a function

Function RemoveLetters(Rng As String) As String
Dim Tmp As String
Dim i As Integer, j As Integer

Tmp = Rng
n = Len(Tmp)

For i = 1 To n - 1

k = Mid(Tmp, i, 1)

For j = 0 To 9
If k < j Or k = ";" Then Tmp = Application.Substitute(Tmp, k, "")
Next j

Next i

RemoveLetters = Tmp
End Function


and i try to remove any letter from string and leave only numbers

but my function does not work correctly

i.e

string in A1: Hardware, and Plumbing and Heating Equipment and Supplies
Wholesalers (4217); Refrigeration Equipment and Supplies Wholesalers
(42174); Warm Air Heating and Air-Conditioning Equipment and Supplies
Wholesalers (42173)

and i receive ,PEqW(2REqW(2WAA-CEqW(23 instead 4217;42174;42173