Help with code to Apply Filter to Pivot Table based on a cell value

[rv02]

Hi

I was wondering whether someone can help me with a seemingly simple question (im new to VB)

I have a code which tries to apply a filter to my pivot table base on a value in a cell. So for example, in code below if ValCell is Mens then the pivot table would filter Men from Division Only.

I have the following Code

Please Login or Register  to view this content.

The Name is passed thorough from this Code

Please Login or Register  to view this content.

What I need to do is to replace the Mens in first code ActiveSheet.Povottable.......... with a variable Name (which has the value of whatever selected in Sheet 1 Cells (8,"C").

Any help is appreciate it

[mrice]

Try

Please Login or Register  to view this content.

[rv02]

Thanks for the reply

I get the following error
The item could not be found in OLAP Cube even though its in the filters (run time error 1004). The message box shows the correct name and I also cleared all the filters.

Any idea

[rv02]

Sorry it works now as I had a typo originally.

Thank you so much for your help.