Text Box

Joined
Jul 9, 2008
Messages
1
Reaction score
0
I have a text box that is calling a cell. I know there is a maximum of 255 characters in a cell. How can I retrieve the cell content in its entirety.

I've tried the following and it didn't work.


Sub MakemyTextBox()
Dim s As Shape
Set s = ActiveSheet.Shapes("Text Box 2")
s.TextFrame.Characters.Text = Cells(1, 1).Value
End Sub


Cell A1 has about 500 characters. When I run this macro, it truncates it to the limit of 255.


Help!



JD
 
Back
Top