Assuming the "box" is a textbox this will add the contents
of a bunch of cells to that text box.

Sub Macro1()
Dim c As Range
Dim rge As Range
Set rge = Range("B4:B6") ' list of cells with parts list
text description

ActiveSheet.Shapes("Text Box 1").Select
With ActiveSheet.Shapes("Text Box 1")
.Select
With Selection
For Each c In rge
' add the text of each cell to the textbox
.Characters.Text = .Characters.Text & Chr(10) &
c.Value
Next c
End With
End With
Set rge = Nothing ' release the memory
Range("B10").Select
End Sub

Dave


-----Original Message-----
We have huge assemblies of parts that are broken down
into assemblies,
subassemblies, installations, etc. These are in big
parts lists.

Currently we have another worksheet that just has boxes
drawn with
connectors between them to create a "parts tree" graphical
representation. This is completely manual and every time
the parts
list changes the tree has to be manually updated.

Is there an add-on or another piece of software that
would do this for
us automatically???? We could set the hierarchy up in
the parts list
and use it to set the grouping in the graphical version
(A, A1, A1A,
etc).

Thanks!

Joa
.