Sub test()
Dim C As Range
Dim i As Byte
Dim nombre As String
For Each C In Selection
If Not IsEmpty(C) Then
For i = 1 To Len(C)
If IsNumeric(Mid(C, i, 1)) Then
nombre = nombre & Mid(C, i, 1)
End If
Next i
C = CDbl(nombre)
nombre = ""
End If
Next C
End Sub