Do not use selection more then nescesary!(Macro recorder sins should
not be repeated)

In this case the selection contains different types of shapes, and this
makes that properties that are not available for all items in the
selection cannot be used.

for a Shapecontrol (i.e. a control from the Forms toolbar) use
ActiveSheet.Shapes("Text Box 7").ControlFormat.Value ="myvalue"

DM Unseen