You can add an item to the currently selected items, e.g.:

With ActiveSheet.PivotTables(1).PivotFields("[Dept]")
.CubeField.EnableMultiplePageItems = True
.AddPageItem "[Dept].[All].[Finance]"
End With


Microlong wrote:
I am programming in Excel Macro with VBA, Is there anyone know how to deal
with "Select Multiple items" in page area. i.e.: In page area, there is
product dimension. In Excel 2003, PivotTable provides "Select Multiple Items"
feature in page area. I want to select more products A ,B ,C. I should use
"Select multiple items". Is there any object to provide this feature to catch
these values?


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