Excel VisualBasic Script

Sub hasfor()
    Dim FormulaTest As Boolean
    FormulaTest = range("A1:A2").hasFormula
End Sub