【Excel VBA】結合セルにおいて，取得した値に応じてセルの高さを自動で調整するコードについて伺います。「様式」シートにおいてB10セルからL10セルはセル結合してあり，その結合セルは別シートに入力してある関数の戻り値(vlookup関数で文章を取得しています）をセルリンクによって取得します。結合セルの幅は，848ピクセルです。別シートの戻り値が変わるたびに，「様式」シートの結合セルにおいて，結合セル全体の幅（848ピクセル），文字サイズは変えずにセルリンクで取得した値（文章）の行数に応じて，その結合セルの高さが自動で変わるVBAコードについて伺います。なお，結合セルの高さは372ピクセル以上になるように考えております。AIにコード作成を依頼するなどして以下の回答が来ましたが，「.WordWrap = True」の部分でデバックが起こり，止まってしまいます。どのように修正したらよいか，ご教示いただけますようお願いいたします。Private Sub Worksheet_Change(ByVal Target As Range)If Not Intersect(Target, Me.Range(\u0026quot;B10:L10\u0026quot;)) Is Nothing Then AdjustMergedCellHeightEnd SubPrivate Sub Worksheet_Calculate()AdjustMergedCellHeightEnd SubPrivate Sub AdjustMergedCellHeight()Dim rng As RangeDim txt As StringDim lineCount As LongDim rowHeight As DoubleDim tempSheet As WorksheetDim tempTextBox As ShapeApplication.EnableEvents = False' 対象セル範囲（結合セル）Set rng = Me.Range(\u0026quot;B10:L10\u0026quot;)' 値を安全に取得txt = rng.Cells(1, 1).ValueIf Len(txt) = 0 Then' 空の場合は最小高さを設定rng.RowHeight = 280Exit SubEnd If' 一時的なテキストボックスを使用して行数を推定Set tempSheet = ThisWorkbook.Worksheets.Add(Type:=xlWorksheet)Set tempTextBox = tempSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, rng.Width, 1000)With tempTextBox.TextFrame.Characters.Text = txt.Characters.Font.Size = rng.Font.Size.Characters.Font.Name = rng.Font.Name.Characters.Font.Bold = rng.Font.Bold.Characters.Font.Italic = rng.Font.Italic.AutoSize = False.WordWrap = True.Width = rng.Width' テキストの高さを取得lineCount = .Characters.Count / 20 + 1 ' 概算の行数rowHeight = .HeightEnd With' 一時シートを削除Application.DisplayAlerts = FalsetempSheet.DeleteApplication.DisplayAlerts = True' 行高さ（最低280ポイント ≒ 372ピクセル）rowHeight = Application.Max(280, rowHeight)' 行の高さを設定rng.RowHeight = rowHeightApplication.EnableEvents = TrueEnd Sub