Thread: Help reading the selected items in a pivot table page field

I am trying to write VBA code to read the values of a page field as set by the user. The field has EnableMultiplePageItems set to TRUE. When I read the CurrentPage property, the item returned is "(All)". It is the only VisibleItems and all of the other PivotItems have Visible set to False. Here is my code:

Public Function GetPageFilter(Item As String) As String

Dim PVT As PivotTable
Dim PVfield As PivotField
Dim PVitem As PivotItem
Dim PVsub As PivotItem
Dim PVfilter As PivotFilter
Dim Sep As String

For Each PVT In ActiveSheet.PivotTables
    Set PVfield = PVT.PageFields(Item)
    If PVfield.AllItemsVisible Then
        GetPageFilter = "(ALL)"
    Else
        Set PVitem = PVfield.CurrentPage
        If PVfield.EnableMultiplePageItems = False Then
            GetPageFilter = PVitem.Value
        Else
            For Each PVsub In PVfield.VisibleItems
                GetPageFilter = GetPageFilter & Sep & PVsub.Name
                Sep = " , "
            Next PVsub
        End If
    End If
Next PVT
End Function

Any help on how I determine which PivotItems are a part of the filter would be appreciated.