That's it!

Thank you.
Paul

--

"Leith Ross" wrote in message
...

Hello Paul,

Here is a macro to change "TextBox1" on the active sheet to wrap the
text.

=================================
Sub Macro1()

Dim TB As Object

Set TB = ActiveSheet.OLEObjects("TextBox1").Object
With TB
EnterKeyBehavior = True
MultiLine = True
WordWrap = True
End With

End Sub
=================================


--
Leith Ross

Sincerely,
Leith Ross

'The Code Cage' (http://www.thecodecage.com/)
------------------------------------------------------------------------
Leith Ross's Profile:
http://www.thecodecage.com/forumz/member.php?userid=75
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=51340