Как проверить, включен ли столбец в сводной таблице? - VB

Формулировка задачи:

Данные по году в столбцах помесячно.
Задача такая - в зависимости от периода включать те или иные столбцы.
Соответственно, надо отключить перед этим все ненужные.
Как узнать, включен ли столбец я не нашел, а ни до чего более простого, как проскакивать ошибку не додумался.

i =   
            Лист11.PivotTables().PivotFields( & Format(i, ) & ).Orientation = xlHidden
            Лист11.PivotTables().PivotFields( & Format(i, ) & ).Orientation = xlHidden
     i

Есть ли более изящный способ?

Решение задачи: «Как проверить, включен ли столбец в сводной таблице?»

textual
                            Листинг программы 
                        
                            <font color="blue">Sub</font> test()
<font color="blue">Dim</font> pt  <font color="blue">As</font> PivotTable

<font color="blue">Dim</font> pfs <font color="blue">As</font> PivotFields
<font color="blue">Dim</font> pfhs <font color="blue">As</font> PivotFields

<font color="blue">Dim</font> pf <font color="blue">As</font> PivotField
<font color="blue">Dim</font> pfh <font color="blue">As</font> PivotField

<font color="blue">Set</font> pt = ActiveSheet.PivotTables(<font color="darkblue"><b>1</b></font>)

<font color="blue">Set</font> pfhs = pt.HiddenFields

<font color="blue">Set</font> pfs = pt.PivotFields
<font color="blue">Set</font> pf = pfs(<font color="darkblue"><b>2</b></font>)

<font color="blue">For</font> <font color="blue">Each</font> pfh <font color="blue">In</font> pfhs
<font color="blue">If</font> pfh = pf <font color="blue">Then</font> MsgBox <font color="teal">"Hidden"</font> <font color="blue">Else</font> MsgBox <font color="teal">"Visible"</font>
<font color="blue">Next</font> pfh

<font color="blue">End</font> <font color="blue">Sub</font>