Copie el texto de un "cuadro de texto" básico y péguelo en una celda

Estoy tratando de acceder al texto dentro del "Cuadro de texto 1", copiarlo y luego pegarlo en un rango a partir de A37.

ACTUALIZACIÓN : los cuadros de texto en cuestión son cuadros de texto simples que se han insertado usando: Insertar pestaña> botón Cuadro de texto.

A continuación hay un montón de cosas con las que estoy experimentando. Parece que no puedo encontrar la manera de llegar al texto y copiarlo. ¿Algunas ideas?

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
fuente

Esto funciona cuando lo intento:

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

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

— James P
fuente

Estos cuadros de texto ya existen en las hojas que estoy actualizando. Son cuadros de texto simples insertados mediante el botón Insertar pestaña> Cuadro de texto. Creo que esta puede ser la razón por la que me encuentro con los problemas.

— RocketGoal

@RocketGoal: ver respuesta actualizada

— James P

Hace lo que no pude hacer que haga. Muchas gracias.

— RocketGoal