PivotCell.ColumnItems (Excel)

Returns a PivotItemList collection that corresponds to the items on the column axis that represent the selected range.

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