Sub DeleteCalculatedItem() With ActiveSheet.PivotTables(1).PivotFields("Product") .PivotItems("Melons").Delete End With End Sub