I have now come up with a workaround:

Public Function HasFormula(rngCell As Range) As Boolean
'NB rngCell.HasFormula causes problesm with Conditional formating.
On Error Resume Next
If Left$(rngCell.Formula, 1) = "=" Then
HasFormula = True
End If
End Function