Take Textbox input and move to a specific cell.

I'm writing a macro to pull various data from an Excel sheet and put it in a more usable order. A problem I've run into is that one section of the data I want is contained in a textbox. I'd like to pull the data o开发者_运维问答ut of the textbox and have it all pasted into a cell, A100.

The textbox is always called ActivityA.

try this

Cells(100, 1) = ActiveSheet.Shapes("NameOfYourTextBox").DrawingObject.Text