removing #DIV/0! in VBA in a calculated field in a pivot table

[Guest]

I have written a program in VBA that creates pivot tables. There is a
calculated field which creates a percentage based on a division between sums
of two of the fields in the pivot table. The denominator occasionally shows
up as a "0", causing a #DIV/0! to appear. I have set the null string to a
blank, but since the range that creates the sum has a formula in it, the sum
still shows up as a "0". How can I code this to remove the #DIV/0!?

Thanks

 

[Tom Ogilvy]

handle it in the calculated field definition

if(divisor = 0,0,current formula)

 

[Guest]

Without and code I will have to be generic but this should be close...

With ActiveSheet.PivotTables("PivotTable1")
.DisplayErrorString = True
.ErrorString = "0"
End With

instead of #DIV/0!it will show 0 as the errorstring...

HTH