Excel VisualBasic Script

Function IsFormula(Check_Cell As Range)
      IsFormula = Check_Cell.HasFormula
     End Function
=IsFormula(A1)