ShowDependents/NavigateArrow only returns 1 cell from another sheet

[Amateurhr]

The code below returns only ONE dependent from another sheet (even though there are multiple dependents on other sheets), and returns rngPrecedent's address (the cell we're investigating) multiple times.

I simplified this post from another one as I narrowed down the issue to be the specific line in red

Sub FindDependents(ByVal rngPrecedent As range)

    Dim dependentCell As range
    Dim arrowNumber As Integer

    'We'll be checking for errors as we go
    On Error Resume Next
       
    'Show the dependency arrows
    rngPrecedent.parent.ClearArrows
    rngPrecedent.ShowDependents
    arrowNumber = 1
   
    'We'll break out of this loop when no more dependencies are found.
    Do
        Set dependentCell = rngPrecedent.NavigateArrow(False, arrowNumber, 1)
        If Err.Number <> 0 Then
            GoTo NoMoreArrows
        Else
            keyStr = dependentCell.parent.name & "!" & dependentCell.Address
            arrowNumber = arrowNumber + 1
        End If
    Loop While not dependentCell is nothing
   
NoMoreArrows:
    Exit Sub

End Sub

 

[Amateurhr]

I just caught my error, I had the arrowNumber incrementing in the wrong location. I should have this instead:

Set dependentCell = rngPrecedent.NavigateArrow(False, 1, arrowNumber)

 

[mikerickson]

Perhaps this might help
http://www.vbaexpress.com/forum/showthread.php?t=19348&page=2&highlight=precedents

 

[Amateurhr]

Thanks Mike!