In diesem Beispiel wird das erste berechnete Element ausgeblendet.
Worksheets(1).PivotTables(1).PivotFields("year") _ .CalculatedItems.Item(1).Visible = False