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