I forgot to add that I already have the code to select all the tex
boxes, but what is missing is the copy-paste code....

Dim shape_names()
shape_names = Array()
n = 0

For Each ss In ActiveSheet.Shapes
If ss.TopLeftCell.Column = 5 And ss.Type = 17 Then
ReDim Preserve shape_names(n)
shape_names(n) = ss.Name
n = 1 + n
End If
Next


I have attached a template so you can see what my sheet looks like an
the end result.

In columm E there are text boxes that are created when ever new data i
entered in columm C. What I would like to do is a program that woul
search for Text boxes in columm E, and then copy and paste the dat
from columm A,C and D into each respective text box in columm E.

Can anybody help?
Regards,
B

Attachment filename: template1.xls
Download attachment: http://www.excelforum.com/attachment.php?postid=42456
--
Message posted from http://www.ExcelForum.com