Funcion que elimmine las letras

"Luisa" escribió en el mensaje news:04d701c50848$6de949c0$

Hola a todos los foreros,quisiera que me ayudaran con esto,
pues no se si hay alguna funcion que me permita eliminar
las letras de una celda ,que tengo en una variable String
EJ que A25 me deje solo el 25, C549 ,en 549,parece facil
pero no se como se hace.
Saludos y muchas gracias por ayudarme.
Luisa A.

Se podría hacer con la siguiente función:

Function QuitaLetras(Celda As Range) As Long
Dim n As Long
For n = 1 To Len(Celda)
If IsNumeric(Mid(Celda, n, 1)) Then QuitaLetras = QuitaLetras & Mid(Celda, n, 1)
Next n
End Function


La sintaxis es:

=QuitaLetras(Celda)

Un saludo.


Fernando Arroyo
MS MVP - Excel