Pivot field existence check function.

[pedie]

Hi please help me with vba to check Pivot field existence...

I tried looping around but does not work it only show the one in column labels.

I just need to check if the field/column header called "DefinedNames" and "Creation_Date" exist:

Thanks in advance.

[FONT=Courier New]Sub Test()[/FONT]
[FONT=Courier New]Dim pt As PivotTable, pf As PivotField[/FONT]
[FONT=Courier New]Set pt = ActiveSheet.PivotTables("PivotTable1")[/FONT]
[FONT=Courier New]For Each pf In pt.ColumnFields[/FONT]
[FONT=Courier New]MsgBox pf.Name[/FONT]
[FONT=Courier New]Next pf[/FONT]
[FONT=Courier New]End Sub[/FONT]

PS: I want to check the Pivot Table Field List