Pivot Table - Filter on value

I have a Pivot Table that displays various value, one being a ratio (in %).

I have a cell where I can input the ratio.
I want that whenever the field is updated, so is the Pivot Table.

So how can I do in VBA so that the table displays only ratios that are equal or over the set ratio?

Thanks in advance!

-jb

I just tried the following method:

    ActiveSheet.PivotTables("ptBatt").PivotFields("CellNameID").PivotFilters.Add _
        Type:=xlValueIsGreaterThanOrEqualTo, DataField:=ActiveSheet.PivotTables( _
        "ptBatt").PivotFields("Power Plant Ratio"), Value1:=0.5

by recording a macro. Doing it manually works.

When I put the exact same code in the Worksheet Change event, it errors out:

Error 1004: (guessed translation from french) Impossible to read the PivotFields property of the PivotTable class.

What am I missing?

No one has an idea?

I have the feeling it's pretty simple but I just can find it... please help