Helo everyone,

I have 2 pivotcharts. I want to write some sample code that cycles through
the 2 pivotcharts. Any ideas? My sample code doesn't work


For Each wsChart In Charts

Select Case wsChart.Name

Case "CTDefectsByDateChart"
wsChart("CTDefectsByDateChart").Visible = True
wsChart("AgingDefectsChart").Visible = False
Case "AgingDefectsChart"
wsChart("CTDefectsByDateChart").Visible = False
wsChart("AgingDefectsChart").Visible = True
End Select

Next wsChart



Thanks
Michael

Off the top of my head, I would think that first you need to declare wsChart
Dim wsChart as chart
and 2nd use...
wsChart.Visible = True
instead of..
wsChart("CTDefectsByDateChart").Visible = True
Untested....
but hope this helps.
--
Gary Brown

If this post was helpful to you, please select ''YES'' at the bottom of the
post.



"Michael" wrote:

Helo everyone,

I have 2 pivotcharts. I want to write some sample code that cycles through
the 2 pivotcharts. Any ideas? My sample code doesn't work


For Each wsChart In Charts

Select Case wsChart.Name

Case "CTDefectsByDateChart"
wsChart("CTDefectsByDateChart").Visible = True
wsChart("AgingDefectsChart").Visible = False
Case "AgingDefectsChart"
wsChart("CTDefectsByDateChart").Visible = False
wsChart("AgingDefectsChart").Visible = True
End Select

Next wsChart



Thanks
Michael