Cuestión : Conseguir secuencias de textboxes

Estoy intentando utilizar la macro siguiente para enumerar todos los textboxes en una hoja junto con sus posiciones y sus secuencias de texto. Pero estoy fallando en la partición de la secuencia de texto. ¿Puede alguien decirme el sintaxis correcto para conseguir esto?
For del

Saqib

Sub GETOBJECTS () cada Obj en msoTextBox
Case de ActiveSheet.Shapes
Select/>rn = rn + 1
Cells (rn, 1) =
Cells (rn del “TextBox ", 2) = Obj.Left
Cells (rn, 3) = Obj.Top
Cells (rn, 4) = Obj.Width
Cells (rn, 5) = Obj.Height
Cells (rn, 6) = Obj.Characters.Text
End Select
Next Obj
End Sub
class= del

Respuesta : Conseguir secuencias de textboxes

Esto aparece trabajar:

Células (rn, 6) = Obj.TextFrame.Characters.Text