Thanks Jon, I am trying to copy and paste the data in columms A,C and
into each text box that was selected in columm E. (by the code yo
described)Thus, data for example from A1,C2 and D1 will be pasted int
the text box appearing in E1. And so on.... So a code that will do tha
for every text box that is in columm E??

This is a part of my code:
ActiveSheet.Shapes.Range(shape_names).Select
Selection.ShapeRange.ZOrder msoBringToFront
ActiveSheet.Shapes.Range(shape_names).Select
ActiveCell.FormulaR1C1 = "11/3/2000"
ActiveSheet.Shapes.Range(shape_names).Select
Selection.Characters.Text = "11/3/2000" & Chr(10) & ""
With Selection.Characters(Start:=1, Length:=10).Font

But it will not recognize the Text in the second to last line and
guess it will do the same for columms C and D.....

Anyone have any ideas as to how to do this?

Thanks
B

--
Message posted from http://www.ExcelForum.com