Zif
The trick is to select the text box before specifying the value as follows:
Sub SetTextBoxValue()
ActiveSheet.Shapes("Text Box 1").Select
Selection.Characters.Text = Range("B3").Value
Range("A1").Select
End Sub
HTH - JAF
If you just want to link the textbox to a cell then all you have to do is...
With the textbox selected enter: =Sheet1!A1
or just: =A1
in the formula toolbar.
This will link the textbox to whatever is entered in cell A1.
Note: As well as the other suggestions you could also
use the "Camera" tool avail via Tools / Customize / format
then look for camera.....this is a handy tool for
taking copies of cells and linking.
Ivan