Stuart,

Try something like the following:

Dim SH As Shape
Set SH = ActiveSheet.Shapes("Text Box 1")
SH.TextFrame.Characters.Text = "this is some text" & vbLf & _
"this is some more text"



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"Stuart" wrote in message
...
With a textbox from the Drawing toolbar, how do I
programmatically load the textbox with loads of text?

ActiveSheet.Shapes("Text Box 10").Visible = True
ActiveSheet.Shapes("Text Box 10").Select
' Selection.Text = "ABC" 'this works
'the following does not work
Selection.Text = _
"Use this Fax template to create the first Fax for a new" &
_
vbNewLine & "Contract." & vbNewLine & vbNewLine _
& "Enter all those items that will be 'standard' for every
Fax."

Regards.


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.726 / Virus Database: 481 - Release Date:
22/07/2004