Prueba esta función personalizada (dentro de un módulo de VBA):
Código:
Function miformula(celda As Range)
'cogemos la celda con la fórmula
datos = celda.FormulaLocal
'reemplazamos el signo igual de la fórmula, por nada,
'es decir, quitamos el signo de igual
datos = Replace(datos, "=", "")
'contamos los caracteres que hay hasta encontrarnos
'con el primer paréntesis, es decir, el de apertura
caracteres = InStr(datos, "(")
'extraemos el nombre que hay delante de ese paréntesis
datos = Left(datos, caracteres - 1)
miformula = datos
End Function
Para llamar a la función, hazlo de la siguiente forma:
Donde
celda será A1, o la celda donde esté el valor que muestra la fórmula. Ejemplo:
o bien
Salu2