Условное форматирование ячеек, ссылающихся на другие ячейки

[Санти]

Помогите, пожалуйста, создать правило условного форматирования для всех ячеек листа, содержащих ссылку или ссылки на другие ячейки листа. Я знаком с ПОЛУЧИТЬ.ЯЧЕЙКУ, с помощью чего настроил форматирование всех ячеек, содержащих формулы (см. приложенный файл, форматирование столбца А-А).
Однако мне нужно еще дифференцировать ячейки просто с числовыми формулами и ячейки, в формулах которых используются значения других ячеек, чтобы выглядело, как в столбце В-В.
Я создал функцию VBA

Function HasPrecedents(rg As Range) As Boolean
    HasPrecedents = rg.Precedents.Count > 0
End Function

однако она не работает. Не могу разобраться, в чем дело.

[vefer]

А если тупо так

Function HasPrecedents(rg As Range) As Boolean
    If rg.FormulaR1C1 Like "*R*C*" Then HasPrecedents = True
End Function