Select vermeiden - bei Shapes

ActiveSheet.Shapes("Text Box 1").Select
Selection.Characters.text = "xxx"

wenn ich hingegen das ganze Select-Frei programmieren möchte und das Select eleminiere:

ActiveSheet.Shapes("Text Box 1")..Characters.text = "xxx"

bekomme ich eine Fehlermeldung und muss das ganze so ergänzen:

ActiveSheet.Shapes("Text Box 1").TextFrame.Characters.text = "sdfasd"

Gibts hierfür nen Grund?
Denn nach dem Aufzeichnen mit dem Recorder sollte der Code ja nochmal bezgl der Selects überarbeitet werden, aber dann beginnt das grosse Rätselraten, wie der Code ergänzt werden muss, daß er auch funktioniert.
Das gleiche Problem tritt ja bei anderen Elementen (Diagrammen usw) ja auch auf und führt dazu, daß man den Select-Code einfach stehen lässt.
Gruß, Daniel