Pivot Table error

[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.

 

[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.

 

[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
'=====================