EXCEL VBA に詳しい方ご指導下さい。TEST.xlsm と TEST_Book.xlsx の２つのファイルがあります。TEST_Book.xls には、以下のシートが存在しています。\u0026quot;Sheet1\u0026quot;\u0026quot;01\u0026quot;\u0026quot;02\u0026quot;\u0026quot;03\u0026quot;\u0026quot;04\u0026quot;\u0026quot;05\u0026quot;\u0026quot;06\u0026quot;\u0026quot;07\u0026quot;\u0026quot;08\u0026quot;\u0026quot;09\u0026quot;\u0026quot;10\u0026quot;\u0026quot;11\u0026quot;\u0026quot;12\u0026quot;TEST.xlsm には、VBA が記述されており、VBA を実行するとTEST_Book.xls の、シート \u0026quot;01\u0026quot; ～ \u0026quot;12\u0026quot; までの Cells(2, \u0026quot;H\u0026quot;) に式 \u0026quot;= $E$2\u0026quot; が記述される、下記のVBAを書きました。しかし、VBA 実行するとシート名 \u0026quot;Sheet1\u0026quot; ～ \u0026quot;11\u0026quot; に、式が入ってしまいます。シート名 \u0026quot;01\u0026quot; ～ \u0026quot;12\u0026quot; に、式が入るようにするには、下記の VBA をどう修正すればいいてすか。可能ならば、For Each を使う方法で回答をお願い致します。詳しい方がいらっしゃいましたらご指導の程よろしくお願い致します。Sub Sample() Dim LK As Integer Dim BBSN As Integer Dim WS As Worksheet Workbooks.Open ThisWorkbook.Path \u0026amp; \u0026quot;\\TEST_Book.xlsx\u0026quot; With Workbooks(\u0026quot;TEST_Book.xlsx\u0026quot;)' For BBSN = 2 To 13 'OK For Each WS In ActiveWorkbook.Worksheets '① If WS.Name \u0026lt;\u0026gt; \u0026quot;Sheet1\u0026quot; Then '① BBSN = WS.Name '① .Worksheets(BBSN).Cells(2, \u0026quot;H\u0026quot;) = \u0026quot;= $E$2\u0026quot; End If '① Next WS '①' Next BBSN 'OK End With Workbooks(\u0026quot;TEST_Book.xlsx\u0026quot;).Close SaveChanges:=True MsgBox \u0026quot;VBAの実行が終わりました\u0026quot;End Sub'For BBSN を有効にする場合は、①の行をコメントにしてください