Range.HasFormula (Excel)

True si todas las celdas del rango contienen fórmulas; False si ninguna de las celdas del rango contiene una fórmula; null en los demás casos.

Dim booHasFormula As Boolean
booHasFormula = ActiveCell.HasFormula