Add/Remove Multiple Calculated Fields with Listbox (ISSUE)

I'm reluctant that someone will be able to figure this out, but here it goes:

When clicking my listbox items (MultiSelect LisbBox), it populates various calcuated fields in my pivot table. I'm trying to figure out how to Remove and Add my calculated field items when they are selected in the listbox. The code below runs without errors, and it populates the pivot field with the desired calculated fields. However, when I DESELECT the 2nd listbox item, it does not remove the calculated field. If I deselect the 1st listbox item, then ALL of the calculated fields will be removed from the pivottable. How do I modify the code below so that each calculated field is removed individually when it is deselected from the listbox.

Many thanks in advance if someone can solve this!

Please Login or Register  to view this content.

It looks like different things happen when I move around the position of this line of code:

Please Login or Register  to view this content.

but I'm not sure if this is the issue.

How is anybody able to test the code?

I'm a little confused. Your calculated field names don't match the items in the listbox, so how should the code determine which fields should be visible?

Not really. None of those items match the names of your actual calculated fields - they're just the captions that you give them when you add them to the table it appears.

I think you're missing my point. There is nothing in your code that can add other calculated fields because the names of the calculated fields (unlike the regular fields) are not the same as the items in your list. It is quite possible to show and hide calculated fields.

Try this:

Please Login or Register  to view this content.

I've assumed that the calculated field names are in reverse order to the listbox - i.e. the first item in the list relates to "STANDCHG$ 12" and the last to "STANDCHG$ 1" (and similarly with T1CHG$)