Hi,

Try this function

call with
=RemoveCharacters(a1)

Function RemoveCharacters(rng As Range)
FinalString = ""
For x = 1 To Len(rng.Value)
If Mid(rng.Value, x, 1) Like "[0-9]" Then
Character = Mid(rng.Value, x, 1)
Else: Character = ""
End If
FinalString = FinalString & Character
Next x
RemoveCharacters = FinalString
End Function

Mike


"God Itself" wrote:

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