Pivot Table error

J

joey041

When I create a pivottable, one of the columns appears on
top of a column so there is no drop-down field. I've
installed Service Pack 3 and still no go.
 
D

Debra Dalgleish

I'm not sure what you mean by a column on top of a column. You could try
running the following code, which enables item selection in the fields
in a pivot table.
 
D

Debra Dalgleish

And here's the "following code" --

'=================
Sub EnableSelection()
Dim pt As PivotTable
Dim pf As PivotField
Set pt = ActiveSheet.PivotTables(1)
For Each pf In pt.PivotFields
pf.EnableItemSelection = True
Next
End Sub
'=====================
 
Top