エクセル外部リンクのセル番地まで知る方法

質問

エクセル2013です。他のエクセルブックからリンクを張っているとき、以下のマクロで調べることがわかりましたけど、そこでわかるのは、ブック名どまりであって、シートやセル番地はわかりません。わかりたいのは、こっちのブックのどのシートのどのセルが、あっちのブックのどのシートのどのセルとつながっているかです。
わかる方法はないものでしょうか。なお、このマクロは、以下のホームページに書いてあったものです。
https://www.moug.net/tech/exvba/0060039.html

Sub GetLinkInfromation()

Dim Var As Variant
Dim Msg As String
Dim i As Integer

Var = ActiveWorkbook.LinkSources(xlExcelLinks)

For i = 1 To UBound(Var)
Msg = Msg & Var(i) & vbCrLf
Next i

MsgBox Msg

End Sub

回答No.2

ushi2015 · ベストアンサー

こんばんは、No1です。
イミディエイトウィンドウに結果
が表示されませんか？
メッセージボックスがいいなら、
Debug.Print のところを MsgBox
に変更して下さい。

お礼

ばっちりわかりました。
イミディエイトウィンドウを使ったことがなく、いつもMsgBoxでやってました。基本がわかってないことが露呈しました。
ありがとうございました。

回答No.1

ushi2015

こんにちは
虱潰しに調べる方法で、Sub test()
　　Dim s As Worksheet
　　Dim r As Range
　　On Error Resume Next
　　For Each s In ThisWorkbook.Worksheets
　　　　With s
　　　　　　For Each r In .UsedRange.SpecialCells(xlCellTypeFormulas, 23)
　　　　　　　　If InStr(1, r.Formula, "\") > 0 Then
　　　　　　　　　　Debug.Print r.Formula
　　　　　　　　End If
　　　　　　Next
　　　　End With
　　Next
　　On Error GoTo 0
End Sub

お礼

ありがとうございました。やってみましたが、うんともすんともしません。困りました。