Se vuoi usare il componente di office xp dovresti creare l'oggetto con

Set PivotTable1 = CreateObject("OWC10.PivotTable")