I have the following code:

Code:
--------------------

With Worksheets("Sheet1").Shapes("Text1").Line
.ForeColor.SchemeColor = 26
.Weight = 2
End With
With Worksheets("Sheet1").Shapes("Text2").Line
.ForeColor.SchemeColor = 26
.Weight = 2
End With

--------------------


As you can see, I am doing the same thing with both Shapes("Text1") and
Shapes("Text2"). How do I combine the 2 With Statements above without
physically grouping the items on the drawing toolbar?

Thanks in advance!


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