こんばんは。 なぜ、Range(Array("Text Box 1"))と中身を配列にしているのでしょうか？ そこが、分かりませんが、つまり複数あるということですか？ それを、掲示板に載せるときに、省いたということのように想像します。 それと、今、マクロが通っているなら、そのままお使いになって構わないはずです。この手のことを詳しく書いているテキストは少ないはずですし、Selectionを抜かなければならないということでもないと思います。自然に、上達すれば覚えられます。 あえて、質問文そのままのコードを、リクエストどおりの回答をするなら、 Shapes.Range(Array("Text Box 1"))(1).TextFrame2.TextRange.Characters.Text = "test" となります。配列になっているのですから、やむを得ません。Arrayの中を複数にしても可能ですが、Array("Text Box 1","Text Box 2" ) という書き方のスタイルになります。 ある程度、上達すれば、そのような関数式のような書き方はしませんが、かといって、以下の私のコードは、きれいなコードにはなりません。なお、以下は、標準モジュールからですから、With ActiveSheetが入っていますが、シートモジュールなら、そのままダイレクトに、Shapes...で始まって構いません。 '// 全部のテキストボックスの内容を変える場合 Sub TestMacro1() Dim shp As Shape On Error Resume Next With ActiveSheet For Each shp In .Shapes If shp.AutoShapeType = msoShapeRectangle Then 　 shp.DrawingObject.Text = "Test1" End If Next shp End With End Sub '// 特定のテキストボックスの内容を変える場合 Sub TestMacro2() Dim shpNames As Variant Dim n As Variant shpNames = Array("Text Box 1", "Text Box 2") On Error Resume Next With ActiveSheet For Each n In shpNames 　 .Shapes(n).DrawingObject.Text = "Test2" Next n End With End Sub