PivotTable 2003 Code is not working

[Kay]

HI guys,

I have added code to show all items in my pivottable when a bitmap is
clicked. The code needs to first show all items in the pivottable and then
go back to the scorecard sheet. THe code to show all itmes does not work at
all. The hyperlink works fine. I am hoping this code will solve another
problem. On the scorecard, I have a button to click that filters the
pivottable for a specific page item and specific row item. If they go back
to the scorecard and choose another filter choice, it does not filter
properly. So I thought if each time they go back to the scorecard the
pivottable would show all items it would then filter correctly each time they
choose a new item to filter by from the scorecard.

Sub UnFILterOPDrilldown()
'
' UnFILterOPDrilldown Macro
' Macro recorded 4/6/2010 by kay
Dim xx As String
Application.ScreenUpdating = False
'Sheets("OP Drilldown").Select
ActiveSheet.PivotTables("PivotTable1").PivotFields("Business Unit"). _
CurrentPage = "(All)"
EnableMultiplePageItems = True
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Sub-Product")
.AutoSort xlManual, .SourceName
.PivotItems("API CO3").Visible = True
.PivotItems("API Rnagel").Visible = True
.PivotItems("API Renvela").Visible = True
.PivotItems("FG Renagel").Visible = True
.PivotItems("Renvela Sachets").Visible = True
.PivotItems("FG CO3").Visible = True
.AutoSort xlAscending, .SourceName
End With

xx = "#'Operational Scorecard'!a1"
ActiveWorkbook.FollowHyperlink Address:=xx, NewWindow:=False
Application.ScreenUpdating = True
End Sub