Data Type VisualBasic Script

Sub hasFormula()
    Dim FormulaTest As Variant
    FormulaTest = range("A1:A2").hasFormula
    If TypeName(FormulaTest) = "Null" Then MsgBox "Mixed!"
End Sub