dependentsを使って、それっぽいことはできました。
下記は、セル(1,1)とそれを参照するセルを返して選択させる
ということをさせようとしています。

Sub Macro1()

Dim c As Range

Set c = Cells(1,1)
Set c = Union(c,Cells(1,1).Dpendents)

If Not c Is Nothing Then c.select

End sub

これだと、.Dependentsの対象(1,1))がどこかで参照されていれば問題ないのですが、
参照していないとエラーになってしまいます。

何か方法はないでしょうか。