remove/delete/hide/exclude all (Blanks) in a pivot table macro

  • Thread starter Thread starter mju
  • Start date Start date
M

mju

Below is a sample of my code to remove all (blanks) in a pivot table.

With ActiveSheet.PivotTables("PivotTable1").PivotFields("TRAD_PARTNER ")
.PivotItems("(blank)").Visible = False
End With
it works fine it there balnks in the pivot table.
However, sometimes if the data set does not have any (blank), the macro
generates a Run-time 1004 error. (Unable to get the PivotItems Property of
the PivotField class)
Is there a that i can skip the code if there are no (blank)?
I tried If statement but it did not work.

Thanks alot people:)-
 
On Error Resume Next
With ActiveSheet.PivotTables("PivotTable1").PivotFields("TRAD_PARTNER ")
.PivotItems("(blank)").Visible = False
End With

Bob Umlas
Excel MVP
 
thanks Alot!!!!

Bob Umlas said:
On Error Resume Next
With ActiveSheet.PivotTables("PivotTable1").PivotFields("TRAD_PARTNER ")
.PivotItems("(blank)").Visible = False
End With

Bob Umlas
Excel MVP
Click to expand...
 
Back
Top