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
(E-Mail Removed)
"andreashermle" <(E-Mail Removed)> wrote in message
news:86fb876c-5394-40fc-9444-(E-Mail Removed)...
> 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
>
>