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