Check If Pivot Table Pagefield Is Set To ALL?

I have a piece of code that duplicates all of the values in the page fields of one pivot table onto a series of other pivots tables. These can each have multiple selections

The only trouble that I am having is that one of the page fields has about 800 items in it, so looping through all of the values to make sure that they are checked, and then copy those selections into the other pivot tables is more than a little resource heavy.

I know that you can use a piece of code to see if a particular pivot item has been selected...

Code:
sheets("Dashboard").pivottables("ptcontrol").pivotfields("Year").pivotitems("2013").visible
.. but I want to know if "(ALL)" has been selected (without looping through every value). When the option to select multiple items is selected, the "currentpage" also doesn't work - it will always return with (All):

Code:
sheets("Dashboard").pivottables("ptcontrol").pivotfields("Year").currentpage
so... any takers?

This is my whole piece of code - I have changed the font to red for the bit that loops the pivot item values.

Code:
Sub pt_db_filter()
Dim wsMain As Worksheet
Dim ws As Worksheet

[Code]....