Returns an object that represents either a single visible PivotTable item (a PivotItem object) or a collection of all the visible items (a PivotItems object) in the specified field. Read-only.
expression.VisibleItems(Index)
expression Required. An expression that returns a PivotField object.
Index Optional Variant. The number or name of the item to be returned (can be an array to specify more than one item).
Remarks
For OLAP data sources, this property is read-only and always returns True. There are no hidden items.
Example
This example adds the names of all visible items in the field named "Product" to a list on a new worksheet.
Set nwSheet = Worksheets.Add
nwSheet.Activate
Set pvtTable = Worksheets("Sheet2").Range("A1").PivotTable
rw = 0
For Each pvtItem In pvtTable.PivotFields("Product").VisibleItems
rw = rw + 1
nwSheet.Cells(rw, 1).Value = pvtItem.Name
Next