ServerBased Property Example

This example lists all the server-based page fields.

For Each fld in ActiveSheet.PivotTables(1).PageFields
    If fld.ServerBased = True Then
        r = r + 1
        Worksheets(2).Cells(r, 1).Value = fld.Name
    End If
Next