PivotCell.ColumnItems (Excel)

Retorna uma coleção PivotItemList que corresponde aos itens no eixo das colunas que representam o intervalo selecionado.

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