I'm trying to access the text inside "Text Box 1", copy it and then paste it into a range beginning at
UPDATE: the text boxes in question are simple text boxes that have been inserted using: Insert Tab > Text box button.
Below is a shambles of things I'm experimenting with. I can't seem to find the way to get at the text and copy it. Any 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