Grouping and Creating a Texbox + A Shape VBA

[ericmax79]

[FONT=Verdana, serif]Helloguys[/FONT][FONT=Verdana, serif] [/FONT][FONT=Verdana, serif]
Icould use a little help . I want to insert a box .....Then " Adda textbox "at the same time . Preferably i would like to groupit as well. So that when i move the rectangle the text box isattached to it . Could someone please help guide me . I am very newto vba and just staring out . I really want to group it upon itscreation u Know ....Thank you guys happy computing[/FONT][FONT=Verdana, serif] [/FONT][FONT=Verdana, serif]


EricMaxfield ....[/FONT][FONT=Verdana, serif] [/FONT][FONT=Verdana, serif]

[/FONT]

[COLOR=#333333][FONT=Verdana, serif][SIZE=2]

SubDrawRect() '


Set myDocument = ActiveSheet

WithmyDocument.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

EndSub[/SIZE][/FONT][/COLOR]

 

[Andrew Poulsom]

You don't need to do any Selecting. And my name is not Paul.

 

[ericmax79]

Apologies .I have been up all Night Trying to figure different things out on this Project . I Seen Poulsom and eqauted it with Paul . My Bad .