Pivot Chat Macro
 

Hi

I am using this code to view and refresh a Pivot Table:

Sub Rectangle3_Click()
On Error Resume Next
With Worksheets("Sheet4")
..Activate
..PivotTables(1).PivotCache.Refresh
End With
End Sub

I have two questions:
1. Can the macro be amended to view a Pivot Chart based on the Table in a
new worksheet?
2. When I created a Pivot Chart with a custom chart type (Line-Column on
2-Axis) in "Sheet4", and then ran this macro, the Pivot Table reverted to a
single axis column chart. How can I stop this happening?

Thanks
Rastus