VBA Filter

[Confidentjohn]

Hi

I have a macro setup in Excel that filters a data set.

The filter part looks like

ActiveSheet.PivotTables("cohortCLVTwoYear").CubeFields(17).EnableMultiplePageItems = _
        True
    ActiveSheet.PivotTables("cohortCLVTwoYear").PivotFields( _
        "[data1].[CUST_COMBINEDmonthsFromOrder].[CUST_COMBINEDmonthsFromOrder]"). _
        VisibleItemsList = Array( _
        "[data1].[CUST_COMBINEDmonthsFromOrder].&[01-03_Months]", _
        "[data1].[CUST_COMBINEDmonthsFromOrder].&[04-06_Months]", _
        "[data1].[CUST_COMBINEDmonthsFromOrder].&[07-09_Months]", _
        "[data1].[CUST_COMBINEDmonthsFromOrder].&[10-12_Months]", _
        "[data1].[CUST_COMBINEDmonthsFromOrder].&[13-18_Months]", _
        "[data1].[CUST_COMBINEDmonthsFromOrder].&[19-24_Months]")

Some of the data sets i have might not have some of the later fields.

Is there a way to program the filter to try the above, then if an error try

ActiveSheet.PivotTables("cohortCLVTwoYear").CubeFields(17).EnableMultiplePageItems = _
        True
    ActiveSheet.PivotTables("cohortCLVTwoYear").PivotFields( _
        "[data1].[CUST_COMBINEDmonthsFromOrder].[CUST_COMBINEDmonthsFromOrder]"). _
        VisibleItemsList = Array( _
        "[data1].[CUST_COMBINEDmonthsFromOrder].&[01-03_Months]", _
        "[data1].[CUST_COMBINEDmonthsFromOrder].&[04-06_Months]", _
        "[data1].[CUST_COMBINEDmonthsFromOrder].&[07-09_Months]", _
        "[data1].[CUST_COMBINEDmonthsFromOrder].&[10-12_Months]", _
        "[data1].[CUST_COMBINEDmonthsFromOrder].&[13-18_Months]")

again if that errors, try

ActiveSheet.PivotTables("cohortCLVTwoYear").CubeFields(17).EnableMultiplePageItems = _
        True
    ActiveSheet.PivotTables("cohortCLVTwoYear").PivotFields( _
        "[data1].[CUST_COMBINEDmonthsFromOrder].[CUST_COMBINEDmonthsFromOrder]"). _
        VisibleItemsList = Array( _
        "[data1].[CUST_COMBINEDmonthsFromOrder].&[01-03_Months]", _
        "[data1].[CUST_COMBINEDmonthsFromOrder].&[04-06_Months]", _
        "[data1].[CUST_COMBINEDmonthsFromOrder].&[07-09_Months]", _
        "[data1].[CUST_COMBINEDmonthsFromOrder].&[10-12_Months]")

On until the last item remains

Hope someone can help

Cheers

John