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

Estou tentando acessar o texto dentro de "Caixa de texto 1", copie-o e cole-o em um intervalo a partir de A37.

ATUALIZAÇÃO : as caixas de texto em questão são caixas de texto simples que foram inseridas usando: Guia Inserir> botão Caixa de texto.

Abaixo está um monte de coisas que estou experimentando. Não consigo encontrar o caminho para chegar ao texto e copiá-lo. Alguma ideia?

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

microsoft-excel macros vba

— RocketGoal
fonte

Isso funciona quando eu tento:

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

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

— James P
fonte

Essas caixas de texto já existem nas folhas que estou atualizando. São caixas de texto simples inseridas usando o botão Inserir guia> Caixa de texto. Acho que é por isso que estou enfrentando problemas.

— RocketGoal 04/07/2018

@RocketGoal: ver resposta atualizados

— James P

Faz o que eu não poderia fazer. Muito Obrigado.

— RocketGoal