他ブックのセルの値をリンクさせたい

質問

Excel2007でマクロ作成中の初心者です。
常に同一フォルダの中のブックA（マクロ記入用）とブックB（データ計算用）を開いて、作業しています。
ちなみにこのフォルダはデスクトップ上にあります。
まず、ブックAを開き、出てきたフォームの中のコマンドボタンを押して、
ブックBを開き、セル("D2")に、ブックAのセル("A1")の値がリンクされているようにしたいです。
どのようにしたらリンクできるでしょうか。

Private Sub CommandButton89_Click()
ブックBを開く
Sheets("管理").Select
　Range("D2").select
End Sub
-------------------------------------
Sub ブックBを開く()
ChDrive ThisWorkbook.Path
ChDir ThisWorkbook.Path
On Error GoTo err:
Workbooks("25年計算.xlsm").Activate
Exit Sub
err:
Workbooks.Open Filename:=ThisWorkbook.Path & "\25年\25年計算.xlsm"
End Sub

回答No.1

ne160257 · ベストアンサー

参照先のブックは必ず開く必要ありますか？
セルに値を表示するだけなら、セルに数式として外部ファイルのセルを参照して表示可能です。

お礼

貴方様のご回答をもとに、いろいろ検討の結果思うとおりにできました。ありがとうございます。