Function FindDependents(qq As Range) As String
Dim qd As Range
Dim i As Integer
    
On Error Resume Next
    i =  0 
    i = qq.Dependents.Count
    FindDependents = ""
    
    If i <>  0  Then
        For Each qd In qq.Dependents
            FindDependents = FindDependents & qd.Parent.Name & "!" & qd.Address & ";" & vbCrLf
        Next qd
    End If
    Set qd = Nothing
End Function



Function FindPrecedents(qq As Range) As String
Dim qd As Range
Dim i As Integer
    
On Error Resume Next
    i =  0 
    i = qq.Precedents.Count
    FindPrecedents = ""
    
    If i <>  0  Then
        For Each qd In qq.Precedents
            FindPrecedents = FindPrecedents & qd.Parent.Name & "!" & qd.Address & ";" & vbCrLf
        Next qd
    End If
    Set qd = Nothing
End Function