Hi,

I am trying to create a pivot table using the below codes, but having some issues with the report filed criterias.

Pivot table should be filtered to display only items with text "NEW" using the ReportField.

Sheets("Working").Select
Range("A1").Select

Set ObjTable = Sheet7.PivotTableWizard

Set ObjField = ObjTable.PivotFields("Posted by")
ObjField.Orientation = xlRowField

Set ObjField = ObjTable.PivotFields("Posted by")
ObjField.Orientation = xlDataField
ObjField.Function = xlCount

Set ObField = ObjTable.PivotFields("Status")
ObjField.Orientation = xlReportField
objField.Filter = "NEW"

Please let us know if you need any further information.

Regards,
Raghu