I was trying to use something like this a double array
Code: Select all
With Sheets(Array("Cover Page", "Cover Page Texas")) _
.Shapes.Range(Array("Rounded Rectangle 1", "Rectangle 5", "Rectangle 2")).Line
End With
Code: Select all
With Sheets(Array("Cover Page", "Cover Page Texas")) _
.Shapes.Range(Array("Rounded Rectangle 1", "Rectangle 5", "Rectangle 2")).Line
End With
Code: Select all
With Sheets("Cover Page").Shapes.Range(Array("Rounded Rectangle 1", _
"Rectangle 5")).Line
Code: Select all
Dim ws As Worksheet
For Each ws In Worksheets
ws.Range = Sheets("Cover Page", "Sheet2")
Next ws
Code: Select all
With Worksheets("Cover Page").Shapes.Range(Array("Rounded Rectangle 1", "Rectangle 2")).Line
Code: Select all
Set shpRange = Sheets("Cover Page").Shapes.Range(Array("Rounded Rectangle 1", "Rectangle 2"))
Code: Select all
With Worksheets("Cover Page").Shapes.Range(Array("Rounded Rectangle 1", "Rectangle 2")).Line
...
End With
Code: Select all
With Worksheets("Sheet2").Shapes.Range(Array("Rounded Rectangle 1")).Line
Code: Select all
Set shpRange = Sheets("Cover Page").Shapes.Range(Array("Rounded Rectangle 1", "Rectangle 2"))
With shpRange.Glow
...
End With
Code: Select all
Set shpRange = Sheets("Sheet2").Shapes.Range(Array("Rounded Rectangle 1"))