Hola
Lo has intentado con el método find?, algo así como:
Código:
Range("A1:A1000").Select
Selection.Find(What:="m", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
El código es el resultado de grabar una macro y seleccionar el rango de celdas y pulsar Edición / Buscar.
--Saludos--