How to put text into a shape without Select

This is bugging me, how do I get rid of the Select?


Dim shpItem as Shape

Set shpItem = Sheet2.Shapes.AddShape(msoShapeFlowchartDecision, GAP, (lngScreenBottom / 2) - (HEIGHT / 2), WIDTH, HEIGHT)
shpItem.Fill.Solid
shpItem.Fill.ForeColor.SchemeColor = 43
shpItem.Name = "Start"
Sheet2.Shapes("Start").Select
Selection.Characters.Text = "Bugging Me"


Any thoughts?

TJ

I can't test it right now... but I think what you want is:shpItem.TextFrame.Characters.Text = "Bugging Me" Fingers crossed...

I am debugged :)

Cheers Mike