Pivot Table Page

[PFLY]

Is there a way to remove "all" as an option from a page on a pivot table?

 

[Debra Dalgleish]

You can't remove the "All" option in the page field. With programming,
you could select another item if the user selects "All".

For example, the following code is stored on the worksheet's code module:
Right-click the sheet tab, and choose View Code
Paste the code where the cursor is flashing.
Change the field name to match your pivot table

'========================
Private Sub Worksheet_Change(ByVal Target As Range)
Dim pt As PivotTable
Dim pf As PivotField
Dim i As Long
Set pt = Me.PivotTables(1)
Set pf = pt.PivotFields("Employee")


With pf
If .CurrentPage = "(All)" Then
i = 1
For i = 1 To pf.PivotItems.Count + 1
On Error Resume Next
.CurrentPage = .PivotItems(i).Name
If Err.Number = 0 Then
Exit For
End If
Next i
MsgBox "The (All) option is not available"
End If
End With


End Sub
'============================