I've used this UDF:

Function IsFormula(cell_ref As Range)
IsFormula = cell_ref.HasFormula
End Function


but I want to highlight several rows and this requires me to do the
conditional formating as formula=formula(cell ref).