dim i as integer
for i=1 to 2
With Worksheets("Sheet1").Shapes("Text" & cstr(i)).Line
..ForeColor.SchemeColor = 26
..Weight = 2
End With
next i

or some such depending on the names you have used

regards


--
tony h
------------------------------------------------------------------------
tony h's Profile: http://www.excelforum.com/member.php...o&userid=21074
View this thread: http://www.excelforum.com/showthread...hreadid=507907