Private Sub reset_chartseries()
Dim c As ChartObject
Dim n As Integer
Dim cs As SeriesCollection
For Each c In rws.ChartObjects
Set c = rws.ChartObjects(c.Name)
For n = c.Chart.SeriesCollection.Count To 1 Step -1
Set cs = c.Chart.SeriesCollection
Debug.Print cs(n).Values
'here is where I will do an if statement
' if value = "[0]" then xvalue ="reports!named range"
Next
Next
End Sub
|