Hi Polly

Sub test()
With ActiveSheet.PivotTables("PivotTable1")
Dim i As Integer
For i = 1 To .PageFields.Count
MsgBox .PageFields(i)
Next i
End With
End Sub

--
XL2002
Regards

William



"Polly" wrote in message
...
| Does anybody know how to get the item name in the
| pagefields? It seems that the following expression
| doesn't work.
|
| .PivotFields("[PageField Name]").PivotItems(i).Name
| where i=1,2,3,...
|
| Can someone give me some suggestions?
|
| Thanks!
|
| Best Wishes,
| Polly