エクセル2021です。https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q10322032770関連、その他の回答（1件）でご回答頂きました以下マクロVBAの動作は、リンクアップデートのマクロVBAを実行した後、複数のリンク先すべてのアップデートが正常に更新された場合、Sheet1のセルA1にOK、それ以外はNG。さらにどのリンクが失敗したかがポップアップされるものです。さて、今回は、「どのリンクが失敗したかがポップアップされる表示窓サイズの最大値について、◆第1希望 縦の倍率をSheet1のセルB1に任意の数値を投入 横の倍率をSheet1のセルB2に任意の数値を投入◆第1希望 横を2倍、縦を2倍◆第2希望 横を1倍、縦を3倍 とするには、以下マクロ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