NUMBERFORMATGET

NUMBERFORMATGET(rgeCell)
Returns whether a particular cell contains a formula.

REMARKS
Public Function NUMBERFORMATGET( _

Public Function NUMBERFORMATGET( _ 
         ByVal rgeCell As Range) _ 
         As String 

   NUMBERFORMATGET = rgeCell.NumberFormat 
End Function 

Calling this function IsFormula rather than HasFormula is in keeping with other Excel functions.

For instructions on how to add this function to a workbook refer to the page under Inserting Functions