【VBA】図形固有の名前を取得したい

お世話になります。

マクロの呼び出し用の図形（横書きテキストボックス(H)）を削除したいと思っています。

削除の前に特定の横書きテキストボックス(H)のオブジェクト名を取得する必要があるので、
マクロ記録で操作したい横書きテキストボックスを選択してみたところ

ActiveSheet.Shapes.Range(Array("テキスト ボックス 1")).Select

となりました。

試しに

ActiveSheet.Shapes.Range(Array("テキスト ボックス 2")).Select

にしたところ、今度はエラーになってしまいました。

前述の通りマクロで横書きテキストボックス(H)を削除したいのですが、
その前段階の図形（横書きテキストボックス(H)）のオブジェクト名を取得する方法がわかりません。

横書きテキストボックス(H)って、固有の名前がないのでしょうか？

すいませんが詳しい方、説明の上手な方、直接、コードで説明できる方、
お手数ですが教えて下さい。よろしくお願いします

追記
1)ActiveSheet.Shapes.Range(Array("テキスト ボックス 2")).Select
でマクロを実行したワークシートには横書きテキストボックス(H)が5個あります。

2)削除したい横書きテキストボックス(H)が2個あるので
それぞれ固有の名前で特定したいと思っています。

3)エクセルのバージョンはEXCEL2010です

質問者からの補足コメント

• 

  ご解答ありがとうございます。
  
  画像のような感じです。
  名前は見つかりませんが、、、、。
  
  操作が間違っているのでしたら、
  また教えて下さいね。
  
  ご解答ありがとうございます。
  ※お手数でしたらスルーでOKです。

  
  No.1の回答に寄せられた補足コメントです。 補足日時：2017/02/13 12:52

• 

  No.1：x-1919さんへ
  
  今回はご解答ありがとうございました。
  
  先ほど作業中に気が付きました。
  書式バーって画像のところなんですね。
  一応、画像をアップしておきますね。
  
  VBAの話があり、他の方のアドバイスも聞いてみたいので、
  しばらく質問はあけておきますね。
  
  今回はご解答ありがとうございます。

  
    補足日時：2017/02/13 14:08

No.1 ベストアンサー 回答者： x-1919 回答日時： 2017/02/13 12:44

ワークシートに設置してあるテキストボックスを選択すると書式バーに名前が出ませんか？

この回答へのお礼

今回はご解答頂きありがとうございます。

補足に書いた通り、
アドバイスで気が付かなかったところに気が付き、解決しました。

VBAの話があったのですが、他に聞いてみたいことが出来たので、
この質問は閉じますね。

今回はご解答ありがとうございました。
機会がありましたら、またお願いします。

お礼日時：2017/02/13 14:57