Remove field from the Pivot Table

hi,

I would like to remove names from my columns in my pivot table.

i used the code below but i receive the error "

Unable to get the pivotField property of the pivot table class.

please kindly advise what am i doing wrong?

thanks you Vered 

Sub Remove_Name()

Dim PTfield As PivotField

Set PTfield = ActiveSheet.PivotTables(1).PivotFields("Name")
With PTfield
    .ClearAllFilters
    .PivotFilters.Add xlCaptionEquals, , "Verif"
End With

End Sub