Thanks for the info.
--
Gary''s Student - gsnu2007a


"djExcel" wrote:

I found a solution. I just had to divide the whole text into e.g. 100
character long pieces and then add those pieces to a text box one by one.

I'm answering to my own question just in case someone else is having same
kind of problems.

Here is an example. I have already divided the whole text into pieces and
placed them into an array Arr_text() and the number of pieces is in the
variable ArrCnt.

ActiveSheet.Shapes("Text Box 1").Select
With Selection
.Characters.Text = Arr_text(1)
If ArrCnt 1 Then 'check if there are more than one piece
For X = 2 To ArrCnt
.Characters(Start:=X * 100).Text = Arr_text(X)
Next X
End If
End With