問題のシートはどれ？

.
　あるexcelファイルを開くと、開く前に添付写真の様なメッセージが出ます。
　問題のシートがどれなのかわかる方法をご教示願います。

　宜しくお願い致します。

　以上

No.3 ベストアンサー 回答者： stomachman 回答日時： 2022/04/17 01:00

Sub findLinkedCell()

Dim C As Object
alinks = ActiveWorkbook.LinkSources(xlExcelLinks)
If Not IsEmpty(alinks) Then
ActiveWorkbook.LinkInfo Name = alinks(1), LinkInfo = xlUpdateState
For i = 1 To Worksheets.Count
Set C = Worksheets(i).Cells.Find(Left(alinks(1), 8), , xlFormulas, xlPart, xlByRows, xlNext, False, True)
If Not (C Is Nothing) Then
Worksheets(i).Activate
C.Select
Exit Sub
End If
Next i
End If
End Sub
を実行してみる。

この回答へのお礼

stomachman さん、ありがとうございました。

　実行してみたら、外部ソースのリンクに行き当たりました。
　それを削除したら、問題のメッセージは出なくなり、質問した問題は解決しました。

　然しその後は「循環参照があるぞ」とのメッセージが出るようになってしまいました。

　ありがとうございました。

　以上

お礼日時：2022/04/21 10:01

No.2 回答者： Hill-andon 回答日時： 2022/04/14 17:44

「データ」タブを選択して、「リンクの編集」をクリック

リンクの有る場所など表示されます
リンク元　不明とあればそれが原因です

この回答へのお礼

内蔵助さん、ありがとうございます。

　その通りやってみましたが、「リンク元」にファイル名が1つあり、それはまともなﾌｧｲﾙでした。
　私が知りたいのは、一つのexcelファイルに複数のシーとがある場合に、問題のリンクのあるシートがどれなのかを知る方法なんですが、何とかなりませんか？

　ありがとうございました。

　以上

お礼日時：2022/04/16 00:23

No.1 回答者： chonami 回答日時： 2022/04/14 16:25

Ctrl＋Fで検索画面を出し検索する文字列に「[」（大カッコ）を入れ、検索場所をブックに変えて「次を検索」を押す

この回答へのお礼

chonamiさん、ありがとうございます。

　やってみたところ、ダイアログボックスが出て、「検索対象が見つかりません。[オプション]をクリックして、検索方法を変えてみてください。」と出ます。[OK]ボタンがあるのでそれを押すと、又違う検索窓が出ます。

　ありがとうございました。

　以上

お礼日時：2022/04/15 21:37