Function TEMFORMULA(c As Range) As Boolean
TEMFORMULA = c.hasformula
End Function

Abs,

Veja as diferenças entre Sub e Function :

VBA – As diferenças entre Sub e Function
http://www.tomasvasquez.com.br/blog/mic ... e-function

Um pouco sobre a Função : HasFormula
Show FORMULA or FORMAT of another cell
http://dmcritchie.mvps.org/excel/formula.htm

HasFormula Property
http://msdn.microsoft.com/en-us/library ... =office.11).aspx

[]s

Boa tarde!

Option Explicit 
 
Function ISFORMULA(cel As Range) As Boolean 
    ISFORMULA = cel.HasFormula 
End Function 

MANDRIX, muito obrigado.