Dan,

Still couldn't get this darned thing to work....

but.......

would less of an issue if you used a textbox from the Control toolbox.
Something akin to "can't see the forest for the trees"????
I guess I had walked into the tree and just kept pushing through it
without ever taking a step to the left or right.

Anyway..........replaced my DrawingObjects TextBox with one
from the Controls Toolbox and I can copy/paste 256 with ease
(and without all that damned code).

Thanks,
John

Dan E wrote:

John,

The following worked for me. One thing to note is that, their would be less
of an issue if you used a textbox from the Control toolbox.

Private Sub CommandButton1_Click()
Set allText = UserForm1.TextBox1
Set txtBox2 = ActiveSheet.DrawingObjects(1)
For x = 1 To Len(allText) Step 250
theText = Mid(allText, x, 250)
txtBox2.Characters(Start:=x, Length:=250).Text = theText
Next
End Sub

You'll neet to change the numbers to suit your sheet and userform.

Dan E