Excel - Extraeer números y guiones

Function LIMPIARCARACTERES(Texto As String)

Dim Ind As Integer

Dim NewTexto As String

Dim Cortado As String

Cortado = Empty: NewTexto = Empty

For Ind = 1 To Len(Texto)

    Cortado = Mid$(Texto, Ind, 1)

    If (IsNumeric(Cortado) Or (Cortado = "-")) Then

        NewTexto = NewTexto & Cortado

    Else

        Exit For

    End If

Next

LIMPIARCARACTERES = NewTexto

End Function

Sub RemoveLetters()

     For i = 1 To 26

         Selection.Replace What:=Chr(64 + i), Replacement:="", LookAt:=xlPart, MatchCase:=False

     Next i

End Sub