Try

Sub CHART_SHOW_BAR_CHART()
Range("A1").Select
ActiveSheet.ChartObjects( _
"Chart 40").ShapeRange.ZOrder msoSendToBack 'exposing the hidden chart
End Sub


--
Regards,
Tom Ogilvy


"Paul" wrote in message
...
I have a bar chart and a line chart on a sheet. One covers the other,
so
that it appears that there is only one chart. I recorded a macro that
sends
the visible chart to the back, exposing the hidden one.

Pretty simple, but when I play the macro back, it crashes with error
"Object doesn't support this property or method". Here is the macro:

Sub CHART_SHOW_BAR_CHART()
Range("A1").Select
ActiveSheet.ChartObjects("Chart 40").Activate 'the visible chart
ActiveChart.ChartArea.Select
Selection.ShapeRange.ZOrder msoSendToBack 'exposing the hidden chart
ActiveWindow.Visible = False
Windows("MSTATS.xls").Activate
Range("A1").Select
End Sub


Any help would be appreciated. If possible, is there a way to get rid
of
the line " Windows("MSTATS.xls").Activate" because the workbook will have
a
filename linked to the date.

TIA
Paul