Excel上のオートシェイプ（テキストボックス）のテキストが取得できない

Question

###前提・実現したいこと
excel2010のシートに同じラベルのテキストボックスが複数あり、それぞれの内容をVBAで取得したいのですがうまくいきません。違うラベルであると問題なく取得できました。

###発生している問題・エラーメッセージ
textBox1＝テキストボックスの内容 赤
textBox1＝テキストボックスの内容 白
textBox2＝テキストボックスの内容 青
このとき下記のソースでテキスト見ていくと
赤、赤、青となってしまいます。赤、白、青となってほしい
同じテキストボックスが存在するのはシート編集する際コピペするとできるようです

###該当のソースコード
For Each objShape In ActiveSheet.DrawingObjects
With objShape
MsgBox objShape.Text
End With
Next

###試したこと
上記のtextBox1で表示されるのは一番最初に存在した方が表示されるようです

Answer 1

Shapesなら取得できませんか。

For Each objShape In ActiveSheet.Shapes
With objShape
MsgBox objShape.TextFrame.Characters.Text
End With
Next

Comments

[yamyamkuma]

解決しました。TextFrameも試してみたのですがうまくいかなかったのですが今回は大丈夫でした。本当にありがとうございました