Pivot table errors 1004

[vba317]

I am getting error 1004 when my program gets to the pivot charts. There are two differnt points that this happens. Nay help is appreciated.

Tom

 With ActiveSheet
            'Added 8/10/2013 TD
            .Range("B9").Select
            .PivotTables("PivotTable1").PivotFields (strFld)
            .Orientation = xlPageField
            .Position = 1
        End With

AND

With goXL.ActiveSheet
    .Range("B9").Select
    .PivotTables("PivotTable1").PivotCache.Refresh
End With

 

[PHV]

What is strFld ?
Are you sure the actual active sheet has a PivoTable named PivotTable1 ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[vba317]

strFld = Facility
How do I find out what the sheet name is?

 

[PHV]

Debug.Print goXL.ActiveSheet.Name

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[vba317]

On the error on the refresh the name of the sheet is Svc_Summary

 

[PHV]

So, are you sure the Svc_Summary sheet has a PivoTable named PivotTable1 ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[vba317]

Yes I just found the SvcSummary template and there is a pivotchart called PivotTable1.