I create Pivot Tables that use calced fields. Sometimes the calced fields
divide zero by zero which results in #DIV/0! showing up in the RowTotals and
TotalTotals. I can use the Table Options For Error Value Show (blank), which
removes the #Div/0! from the table display, the only problem with doing this
is the TotalTotal cells also show up as blank. Here's my code for creating
the calced field.

ActiveSheet.PivotTables("PivotTable2").CalculatedF ields.Add
"Weighted Avg Price", _
"=rev / PosSold"
With ActiveSheet.PivotTables("PivotTable2").PivotFields ("Weighted
Avg Price")
.Orientation = xlDataField
.NumberFormat = "$#,##0"
End With