прямые взаимосвязи емнип Range.DirectPrecedents , Range.DirectDependents

т.е. в вашем случае чтото вроде

sub test
dim a as range , msg as string
for each a in activecell.directprecedents.areas
msg = msg & a.addresslocal(external:=true) & vbcrlf
next a
msgbox msg,vbinformation,"данная формула зависит от ячеек:"
end sub