Quitar el igual de las formulas.

En un módulo ordinario:
Function TextoF(InputCell As Range) As String
TextoF = Mid(InputCell.FormulaLocal, 2)
End Function

Suponiendo que la celda con la fórmula es A2, en la celda que quieras el
resultado:
=textoF(A2)


Saludos desde Tenerife (Islas Canarias).
************************************************
"~ jose ~" escribió en el mensaje
news:
Hola que hay?
tengo en una celda esta formula:
=SUMA(E26;E37;E48;G15;G37;G48)
Como puedo poner en otra celda la fórmula sin el igual?
quiero decir en otra celda que aparezca:
SUMA(E26;E37;E48;G15;G37;G48)
me dá igual que sea mediante código o mediante formula.

Un saludo
jose