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