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