<div>
Excellent!!!<br />
<br />
This is the bit which worked. &nbsp;Many thanks.<br />
<br />
Dim sh As Shape<br />
Set sh = ActiveSheet.Shapes(&quot;Text Box 3&quot;)<br />
Range(&quot;A2&quot;).Value = sh.TextFrame.Characters.Te<wbr />xt<br />
<br />

</div>


Excellent!!!

This is the bit which worked.  Many thanks.

Dim sh As Shape
Set sh = ActiveSheet.Shapes("Text Box 3")
Range("A2").Value = sh.TextFrame.Characters.Text



<div>
<div class="content wysiwyg-content">
I'm after a bit of VBA to do the following:-<br />
<br />
I need to extract text which has been entered into a Text Box on an Excel sheet and write it into a cell.<br />
<br />
Also on the same sheet are rectangles in which text has been written. &nbsp;I also need to extract this and write it to a cell.<br />
<br />
The reason for this is a badly designed spreadsheet (not mine)which was mailed to hundreds of people for them to fill in some comments. &nbsp;I now have been asked to collate the results.<br />
<br />
Many thanks in advance...
</div>
</div>


I'm after a bit of VBA to do the following:-

I need to extract text which has been entered into a Text Box on an Excel sheet and write it into a cell.

Also on the same sheet are rectangles in which text has been written.  I also need to extract this and write it to a cell.

The reason for this is a badly designed spreadsheet (not mine)which was mailed to hundreds of people for them to fill in some comments.  I now have been asked to collate the results.

Many thanks in advance...

EXCEL / VBA - Text Boxes and rectangles

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.