Suggested is that you use vbLf instead of vbNewLine and
otherwise let the textbox automatically wrap the text.
Note that you don't need to select the textbox.
Sub LoadText()
Dim Msg As String
Msg = "INSTRCTIONS:" & vbLf & "Use this Fax template " & _
"to create the first Fax for a new Contract. Enter " & _
"those items that will be 'standard' for every Fax."
With ActiveSheet.Shapes("Text Box 10")
.Visible = True
.TextFrame.Characters.Text = Msg
End With
End Sub
Regards,
Greg
-----Original 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
.