Selecting criteria in Pivot table

[jomili]

I need to know how to make a one size fits all selection for my pivot tables. The overall situation is; I have 12 regions, each of which has an Expense Report. I want to open each workbook, and configure the pivot tables the same. The problem I'm getting into is in regards to the "Strategy". I only want 11001and 11002 to show. All regions have these. However, there are tons of other strategies, and the mix differs by region. If have these these turned (as shown in my code below), I get an error if the value doesn't exist. If I don't turn them off, all show. How do I work around this?

Please Login or Register  to view this content.

[barrboy89]

Set pvtTable = ActiveSheet.PivotTables("PivotTable1")


For Each pvtItem In pvtTable.PivotFields("MFR_STRATEGY").PivotItems
If pvtItem = "11001" or pvtItem = "11002" Then
pvtItem.Visible = True
Else
pvtItem.Visible = False
End If
Next

This could work?

[jomili]

I'm excited about the possiblity, but am having trouble implementing. The code below is my first attempt. Notice I dimmed pvtItem as PivotItem. When I try to run the code, it sticks on the line beginning "For each pvtItem..." with the error message

Please Login or Register  to view this content.

Any help in getting through that is greatly appreciated.

Please Login or Register  to view this content.

[jomili]

Never mind. Sometimes I'm just too thick to believe! "MFR_STRATEGY" is not the same thing as "FY 10-11 Strategy". That's what I get for trying to go from memory.

The code works great! That one's gonna go in my toolbox!

Thank you!