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]
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]
Steve
"Nearly all men can stand adversity, but if you want to test a man's character, give him power."
-Abraham Lincoln
Posting Permissions
Reply With Quote