Hi,

I would like to select a value in a pivot field automatically from
information on a list box. My pivot table is built on an Olap Cube.

I already have the following code for changing the pivot:

ActiveSheet.PivotTables("Pivottable1").PivotFields ("[MKT]").CurrentPageName
= _
"[MKT].[All].[NEW YORK]"

Now I want the value chosen in the listbox to be used as a variable

LTemp = CurList.List(CurList.ListIndex)

ActiveSheet.PivotTables("Pivottable1").PivotFields ("[MKT]").CurrentPageName
= _
"[MKT].[All].[LTemp]"

But this doesn't work. Has anyone an idea if this is possible. I know it is
with a "normal" pivot table but is it also possible with a pivot table based
on an olap cube?

Thx, for your answers