ActiveSheet.PivotTables("PivotTable").PivotFields("title").Subtotals = Array( _ False, False, False, False, False, False, False, False, False, False, False, False) With ActiveSheet.PivotTables("PivotTable").PivotFields("line_numbr") .LayoutBlankLine = False .LayoutForm = xlTabular End Withi tried