Hi Bony,
OMG! A reply from the co-author of namemanager!! What a brilliant piece of
work that is.
:-))
Is there a way to "know" a cell's dependents?
You can use the navigateArrow method to find them out. Code like this:
Sub Demo2()
Dim oRng As Range
Dim sForm As String
Dim lLink As Long
Dim lArrow As Long
sForm = ActiveCell.Formula & vbNewLine
Set oRng = ActiveCell
oRng.ShowPrecedents
On Error Resume Next
For lArrow = 1 To ActiveSheet.Shapes.Count
For lLink = 1 To 1000
Err.Clear
Application.Goto oRng
oRng.NavigateArrow True, lArrow, lLink
If Err.Number = 0 And oRng.Address(external:=True) <
Selection.Address(external:=True) Then
If oRng.Parent.Name = ActiveCell.Parent.Name Then
sForm = sForm & vbNewLine & Selection.Address(False, False,
, False)
Else
sForm = sForm & vbNewLine & Selection.Address(False, False,
, True)
End If
Else
Exit For
End If
Next
Next
MsgBox sForm
End Sub
My ReftreeAnalyser (not free, but there is a free demo) does a decent job at
finding them:
www.jkp-ads.com/reftreeanalyser.asp
Regards,
Jan Karel Pieterse
Excel MVP
http://www.jkp-ads.com