Hi,

I'm trying to write a code to automatically insert forms (rectagles) into my worksheet. I have over 200 entries to make with different sizes and names. I need the names to recognize which box this infomation corresponds to.

EX
Box W X H
AAAA 3.5 cm 2,05 cm
AAAB 2,4 cm 2,08 cm
.... .... .......

here the code I have till now:

Sub ShapeRectangle()
Set myDocument = Worksheets(1)
With myDocument.Shapes.AddShape(msoShapeRectangle, _
144, 144, 72, 72)
.Name = "Red Square"
.Fill.ForeColor.RGB = RGB(255, 0, 0)
.Line.DashStyle = msoLineDashDot
End With
End Sub

where to add a dynamic code to call the info from the worksheet?

thank you in advance for your answer!
best,

Carol