サンプルではセルにハイパーリンクを挿入する際、SubAddressにセル領域を
参照する名前を指定することで、定義済みの名前の参照先を開くためのハイ
パーリンクを設定します。

（前提）”C:\TEST.xls”を作成、セル領域に名前”Nam1"を定義

（参考）テクニック：名前の定義と参照範囲の変更

Sub AddHyperlink()

    Dim H As Hyperlink
    ' アクティブセルにハイパーリンクを挿入
    Set H = ActiveCell.Hyperlinks.Add(ActiveCell, "c:\test.xls")

    With H
    ’サブアドレスとしてセル参照の名前を使用
        .SubAddress = "Nam1"　
        .TextToDisplay = "表示される文字(C:\TEST.xlsのNam1)"
    End With

End Sub

※TextToDisplayプロパティーはエクセル97にはありません。