Quote Originally Posted by lucas
this seems to work for me:
[vba]
Private Sub UserForm_Initialize()
TextBox1.Text = Worksheets(1).Shapes("Text Box 1").TextFrame.Characters.Text
End Sub
[/vba]
Dear Lucas,

Mirabile dictu, your code is perfect. Thanks for solving my simple but thorny problem.