Sub
Method9()
Dim
rng1
As
Range
Dim
strSearch
As
String
Dim
sShapes
As
Shape
Dim
wsLoop
As
Worksheet
Dim
l
As
Long
For
Each
wsLoop
In
Worksheets
Select
Case
UCase(wsLoop.Name)
Case
"PLCP"
For
Each
sShapes
In
wsLoop.Shapes
If
sShapes.Name
Like
"Scale_*"
Then
strSearch = sShapes.Name
Set
rng1 = Range(
"F:F"
).Find(strSearch, , xlValues, xlWhole)
If
Not
rng1
Is
Nothing
Then
l = rng1.Row
Worksheets(
"PLCP"
).Shapes(sShapes.Name).Chart.SetSourceData Source:=Union(Range(Cells(l + 2, 5), Cells(l + 31, 6)), Range(Cells(l + 2, 8), Cells(l + 31, 37)))
End
If
End
If
Next
sShapes
End
Select
Next
wsLoop
End
Sub