PivotCell.ColumnItems (Excel)

Devuelve una colección PivotItemList que corresponde a los elementos del eje de columna que representan el rango seleccionado.

Dim pilColumnItems As PivotItemList
Set pilColumnItems = ActiveCell.PivotCell.ColumnItems