I would like to insert a text box" with the shape " and possibley group it

[ericmax79]

Hello guys
I could use a little help . I want to insert a box .....Then " Add a textbox "at the same time . Preferably i would like to group it as well. So that when i move the rectangle the text box is attached to it . Could someone please help guide me . I am very new to vba and just staring out . I really want to group it upon its creation u Know ....Thank you guys happy computing


Eric Maxfield ....



Sub DrawRect() '


Set myDocument = ActiveSheet

With myDocument.Shapes.AddShape(msoShapeRectangle, _
480, 170, 200, 200)
.Name = "A"
.Fill.Visible = msoFalse
.Line.ForeColor.RGB = RGB(48, 48, 48)
.Line.DashStyle = msoLineSolid

.Line.Weight = 2.5


End With

End Sub

[Fotis1991]

Ok.. I welcomed twice and asked to read the forum rules but seems that you ignore my requests!

So last and final warning!

Stop starting one thread after the other. Read the forum rules and do what you have to do in all 3 your threads.

Let me know if what i say it's clear, or else i'll block ALL your threads.