If you need to show the item as selected in the dropdown:

With ActiveSheet.PivotTables(1).PivotFields("facilityid ")
.CurrentPage = .PivotItems(1).Value
End With


Pete Straman Straman via OfficeKB.com wrote:
I recorded a macro that included showing a pivot field item.
I have to run the macro on different databases that have a unique field
item. There is only one field name in the field in a drop down box. How can
I change the code below to show the field item that is established when
creating the pivot table not the one that was created when I recorded macro

ActiveSheet.PivotTables("PivotTable1").PivotFields ("facilityid")
.CurrentPage = "60172"

When I run the macro on the next database in the current page maybe 60173,
60174, ... My macro will get a run time error because it can not find the
60172 item.

Hope this makes some sense and someone can help.

Thanks in advance.

C. Pete Straman



--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html