Hi Polly

I dont think my first post fully answered your question.

Sub test()
With ActiveSheet.PivotTables("PivotTable1")
Dim i As Integer, ii As Integer
For i = 1 To .PageFields.Count
With .PageFields(i)
For ii = 1 To .PivotItems.Count
MsgBox .PivotItems(ii)
Next ii
End With
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