How do I pass a variable to the CurrentPageName filter of an analysis cube pivot table?

I am trying to filter an OLAP pivot table based on an external cell value and can;t find anything that works. Below is a snippet of my code that I'm trying to get working, so here is my question...How do I pass the "filterProj" variable value to the highlighted text? [0000006.00 - Information Technology]

filterProj = Worksheets("Summary").Range("B2").Text

ActiveSheet.PivotTables("PivotTable2").PivotFields( _
"[Projects].[Project Tree by Number].[Project Number - Short Name]"). _
CurrentPageName = _
"[Projects].[Project Tree by Number].[Project Number - Short Name].&[0000006.00 - Information Technology]"

Thanks,
Heath

Heath

Assuming that the [] are actually part of the variable then try

Please Login or Register  to view this content.

rylo

Thank you very much rylo.

The code that you posted gave me an Application-defined or object-defined error. I played around with the string and ended up with the following working without error.

Please Login or Register  to view this content.

really great this info;
Do you know how to put multiple filter on same currpage?
It seems with this syntax above only get one filter.
Thx