Copie o texto de uma “Caixa de texto” básica e cole-o em uma célula

Question

Estou tentando acessar o texto dentro da "Caixa de texto 1", copiá-lo e colá-lo em um intervalo que começa em A37 .

UPDATE : as caixas de texto em questão são caixas de texto simples que foram inseridas usando: Inserir tab > Botão da caixa de texto.

Abaixo está uma confusão de coisas que estou experimentando. Eu não consigo encontrar o caminho para pegar o texto e copiá-lo. Alguma idéia?

Sub textbox()

    Dim txBox As Shape
    Set txBox = ActiveSheet.Shapes("Text Box 1")
    'shpTextBox.selStart = 0
    'shpTextBox.SelLength = Len(shpTextBox.Text)

    txBox.Select
    txBox.TextFrame.Characters.Text
    Range("A37").Value = shpTextBox.Value    

End Sub

    

Answer 1

Isso funciona quando eu tento:

Dim txBox As Shape
Set txBox = ActiveSheet.Shapes("Text Box 1")

Range("A37").Value = txBox.TextFrame.Characters.Text