<div>
here you go <br />
<br />

<pre><code id="code-20-40558994-1">Sub TextBoxes()
Dim tbx As OLEObject
For Each tbx In ActiveSheet.OLEObjects

If TypeName(tbx.Object) = &quot;TextBox&quot; Then
For i = 1 To 1000
tbx.Object.Text = Cells(i, 1).Value
Next i
End If
Next
End Sub</code></pre>
</div>


here you go



Sub TextBoxes()
Dim tbx As OLEObject
For Each tbx In ActiveSheet.OLEObjects

If TypeName(tbx.Object) = "TextBox" Then
For i = 1 To 1000
tbx.Object.Text = Cells(i, 1).Value
Next i
End If
Next
End Sub

<div>
<div class="content wysiwyg-content">
Hello Experts,<br />
<br />
I'd like a sub routine to copy the text from a predetermined textbox into a cell on the current worksheet. The various textboxes will be on a separate worksheet.<br />
<br />
1) There are several potential textbox choices, the textbox name will come from cell &quot;b2&quot;. i.e. &quot;RadiantText&quot; or &quot;InsulationText&quot;<br />
<br />
2) The contents of the textbox needs to be pasted into cell &quot;d3&quot;
</div>
</div>


Hello Experts,

I'd like a sub routine to copy the text from a predetermined textbox into a cell on the current worksheet. The various textboxes will be on a separate worksheet.

1) There are several potential textbox choices, the textbox name will come from cell "b2". i.e. "RadiantText" or "InsulationText"

2) The contents of the textbox needs to be pasted into cell "d3"

Excel Copy Text Box to cell

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.