Setting shape transparency to 0 for a multiple shapes

[RawlinsCross]

I want to turn 10 shapes (arrows and connecting lines) to .Transparency = 1 when a certain condition exists. There are 10 shapes named "CS_AC1".... though to ... "CS_AC10".

How do I cycle through them instead of listing each one separately:

Condition Then


Worksheets("Dashboard").Shapes.Range(Array("CS_AC1")).Select
Application.CommandBars("Format Object").Visible = False
With Selection.ShapeRange.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 0, 0)
.Transparency = 1
End With

Worksheets("Dashboard").Shapes.Range(Array("CS_AC2")).Select
Application.CommandBars("Format Object").Visible = False
With Selection.ShapeRange.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 0, 0)
.Transparency = 1
End With

Worksheets("Dashboard").Shapes.Range(Array("CS_AC3")).Select
Application.CommandBars("Format Object").Visible = False
With Selection.ShapeRange.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 0, 0)
.Transparency = 1
End With


..............etc.

 

[RawlinsCross]

Okay... found out I can clean it up.. but the selection command is still taking up a bit of time. Still don't know how to loop through these similarly named shapes. Code now is...

Condition Then

With Worksheets("Dashboard")
.Shapes.Range(Array("CS_AC1")).Select
Selection.ShapeRange.Line.Transparency = 1


.Shapes.Range(Array("CS_AC2")).Select
Selection.ShapeRange.Line.Transparency = 1


.Shapes.Range(Array("CS_AC3")).Select
Selection.ShapeRange.Line.Transparency = 1


.Shapes.Range(Array("CS_AC4")).Select
Selection.ShapeRange.Line.Transparency = 1


.Shapes.Range(Array("CS_AC5")).Select
Selection.ShapeRange.Line.Transparency = 1


.Shapes.Range(Array("CS_AC6")).Select
Selection.ShapeRange.Line.Transparency = 1


.Shapes.Range(Array("CS_AC7")).Select
Selection.ShapeRange.Line.Transparency = 1


.Shapes.Range(Array("CS_AC8")).Select
Selection.ShapeRange.Line.Transparency = 1


.Shapes.Range(Array("CS_AC9")).Select
Selection.ShapeRange.Line.Transparency = 1


.Shapes.Range(Array("CS_AC10")).Select
Selection.ShapeRange.Line.Transparency = 1


.Shapes.Range(Array("CS_AC11")).Select
Selection.ShapeRange.Line.Transparency = 1


.Shapes.Range(Array("CS_AC12")).Select
Selection.ShapeRange.Line.Transparency = 1


End With

 

[tonyyy]

How 'bout...

Dim i As Long
With Worksheets("Dashboard")
    For i = 1 To 12
        .Shapes.Range(Array("CS_AC" & i)).ShapeRange.Line.Transparency = 1
    Next i
End With

Cheers,

tonyyy