Powerpivot pivot table with vba

[maring28]

Hi to all,

I'm trying to make a "dynamic" pivot table based on powerpivot data. What I mean is, I have many measures and I want the user to be able to select them from a list (without opening the fields window), and then apply a macro code that would clear the pivot and add the fields that were selected by the user.
I have the command that will remove fields:
ActiveSheet.PivotTables("pivottable2").CubeFields("[Measures].[measure_name]") _
.Orientation = xlHidden

However, I cannot find one to add, as .Orientation = xlDataField is not working.
Why is that? What must I do?

P.S. Orientation = xlDataField is not working is working on a regular pivot table.


Thanks very much,
I am really lost with this...

Marina