Returns an object that represents either a single PivotTable field (a PivotField object) or a collection of all the fields (a PivotFields object) that are currently shown as column fields. Read-only.
expression.ColumnFields(Index)
expression Required. An expression that returns a PivotTable object.
Index Optional Variant. The field name or number (can be an array to specify more than one field).
Example
This example adds the field names of the PivotTable report columns to a list on a new worksheet.
Set nwSheet = Worksheets.Add
nwSheet.Activate
Set pvtTable = Worksheets("Sheet2").Range("A1").PivotTable
rw = 0
For Each pvtField In pvtTable.ColumnFields
rw = rw + 1
nwSheet.Cells(rw, 1).Value = pvtField.Name
Next pvtField