How to Check/Uncheck "Select All" in Pivot table Filter - VBA

My first question is how can I deselect "Select All" when filtering in a pivot table? This is my attempt but it does not work:

Please Login or Register  to view this content.

More importantly, how can I create a macro to select/deselect items in a pivot table filter that may not always be in that specific workbook? For example, one workbook that I might run the following macro on may not have one of the filter options such as "RSell" or "RBSell." Now when I run the macro on that workbook it gives me an error because those options of "RSell" or "RBSell" do not exist. I am trying to create a universal macro so how can I just skip over the fact that sometimes the filter options below may not be available? I thought the "On Error" function would solve that but it does not.

Please Login or Register  to view this content.

Thanks guys

Anyone have any idea?

Bumping this up