Selected pivot table filter items are not visible to VBA

The attached workbook has a pivot table with three fields on which I would like to filter and sync with other pivot tables. I got that part working. What is happening is that VBA thinks that all the visible values for two of the filters are FALSE, so my sync program fails when it tries to turn everything off. I commented out my filter reset program and wrote a simple test program.

This function (GetFilteredValues) creates a string of the visible values for a field in the pivot table. For example, if I have item 1 and item 3 selected, it should produce a string "item 1:item 2".

I use this program to look at three filters: Sales Agent, Department and Location.

Sales agent works as advertised. It shows exactly the number of sales agents I select. Department and location do not work. It shows that none of the items I can see in the pivot table filter and the slicer are selected in the filter, which of course is impossible.

As presented, all items in these three filtered are selected so I should get the "full string" of values for each of the three filters. Department and Location still fail.

P.S. Additional testing reveals another "twist." The department and locations only fail if all the items are visible. If you select a subset of either of these filters then the filter for that item works.