Highlight Cells If Cell Has Dependents Or Precedents

I am working on a tool to highlight cells that have dependents but no precedents. This would be useful for me as I build a number of models and handle models built by others.

I want to be able to easily see where model inputs are and inputs will always be cells that do not have precedents and do have at least one dependent.

I have played with a number of methods with very little success. Is there an easy way to test whether or not a cell has a precedent or dependent within the workbook?


for cell in range

if cell.does.not.have.precedent and cell.has.dependent then
cell.Interior.ColorIndex = 35
end iff

next cell

I found this in an older post but I cant get it to work at all.


Sub atest()

Dim rngA As Range
Dim sngA As Single

For Each rngA In Selection.Cells
If Len(rngA.Formula) > 0 Then
On Error Resume Next
sngA = rngA.DirectDependents.Count
If sngA = 0 Then
rngA.Style = "NoDeps"
End If
End If
Next
End Sub