Hi all,

I have the following code to rearrange a pivot table which by default
includes the "Blank" values in the drop-down for all fields. How can
I uncheck the "Blanks" option from the drop-down?

Sub ViewbyOwner()

ActiveSheet.PivotTables("PivotTable1").AddFields
RowFields:=Array("Owner", "Category", "Expense Category", "Website",
"FTEs")

ActiveSheet.PivotTables("PivotTable1").PivotFields ("Owner").Subtotals
= Array( _
True, False, False, False, False, False, False, False, False,
False, False, False)

ActiveSheet.PivotTables("PivotTable1").PivotFields ("Vendor").Subtotals
= Array( _
False, False, False, False, False, False, False, False, False,
False, False, False)

ActiveSheet.PivotTables("PivotTable1").PivotFields ("Website").Subtotals
= Array( _
False, False, False, False, False, False, False, False, False,
False, False, False)

ActiveSheet.PivotTables("PivotTable1").PivotFields ("Expense
Category").Subtotals = Array( _
True, False, False, False, False, False, False, False, False,
False, False, False)

ActiveSheet.PivotTables("PivotTable1").PivotFields ("Category").Subtotals
= Array( _
False, False, False, False, False, False, False, False, False,
False, False, False)

ActiveSheet.PivotTables("PivotTable1").PivotFields ("FTEs").Subtotals =
Array( _
False, False, False, False, False, False, False, False, False,
False, False, False)

ActiveSheet.PivotTables("PivotTable1").PivotFields ("Owner").Fields =
Array( _
False, False, False, False, False, False, False, False, False,
False, False, False)

End Sub