On Dec 13, 2:40*pm, "Don Guillett" wrote:
See if this helps. It is using a table with the name of the shape in col a
and the text in col B

Sub NameShapes()
Sheets("yoursheetnamehere").Select
For Each c In [setup!a4:a15]
*ActiveSheet.Shapes(c).TextFrame. _
*Characters.Text = c.Offset(0, 1)
Next c
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"andreashermle" wrote in message

...



Dear Experts:

With some cells *in a colum selected (say 10 selected cells in a
column: contiguous range) I would like a macro to copy the contents of
these cells and paste the contents of each cell in separate text
field.

Now here it comes. The pasted contents in the text field should be
linked to the cell contents, i.e. whenever the cell's contents is
changed, the contents of the text field should reflect this. Is this
feasible?

Help is much appreciated. Thank you very much in advance.

Regards, Andreas- Hide quoted text -

- Show quoted text -

Hi Don,

thank you very much for your terrific help. I am afraid to tell you
that your macro throws error messages. I take from your statements
that I have not been exact in stating my requirements. I will
endeavour to do so. I try to keep it quite simple:

Example (Excel 2007):
Sheet 1 contains two cells with data entered:

A1: Mary
A2: John

With these two cells selected I would like a macro to create two
linked text boxes (text box to be created from "Insert"-"Shapes"-"Text
Box"). The text boxes that got created by that macro have got the
following cell references: = A1 and = A2, respectively (to be seen in
the formula bar when the respective text box is selected!).

Help is much appreciated. Thank you very much in advance. Regards,
Andreas