エクセル2021です。https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q10322032770関連、申し訳ございません。本来のベストアンサー、リンクアップデートのマクロVBAを実行した後、複数のリンク先すべてのアップデートが正常に更新された場合、Sheet1のセルA1にOK、それ以外はNG。さらにどのリンクが失敗したかがポップアップされるマクロは、以下の通りとご教示頂きました。今回は組織のPC端末である関係上デフォルトでApplication.AskToUpdateLinks = trueで起動してしまいます。これを強制的に、Application.AskToUpdateLinks = falseで起動させ、同時に以下ご教示頂きましたマクロVBAを実行させるには、どのようにしたらよろしいか、ご教示頂けませんでしょうか。よろしくお願い致します。Sub test()Dim sh As WorksheetDim wlink As VariantDim i As LongDim ck As BooleanDim msg As StringSet sh = ActiveSheetApplication.DisplayAlerts = Falsewlink = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)If IsEmpty(wlink) ThenMsgBox \u0026quot;このブックにリンクはありません\u0026quot;Exit SubEnd IfOn Error Resume NextFor i = LBound(wlink) To UBound(wlink)Err.ClearActiveWorkbook.UpdateLink Name:=wlink(i)If Err.Number \u0026lt;\u0026gt; 0 Thenmsg = msg \u0026amp; \u0026quot;Err.Number=\u0026quot; \u0026amp; Err.Number \u0026amp; \u0026quot; : \u0026quot; \u0026amp; wlink(i) \u0026amp; vbCrLfck = TrueEnd IfNext iIf ck = False Thensh.Range(\u0026quot;A1\u0026quot;).Value = \u0026quot;OK\u0026quot;Elsesh.Range(\u0026quot;A1\u0026quot;).Value = \u0026quot;NG\u0026quot;MsgBox msgEnd IfExit SubApplication.DisplayAlerts = TrueEnd Sub