Pivot Table Options

[sunrise06]

I have created a pivot table which I added to the Data Model so I could perform distinct counts. However, I want to now be able to go to Show Report Filter Page but it is grayed out. Is there a way to now break out my pivot table by a filtered field?

 

[Worf]

Sorry for the delay.

Sub Sorter()
Dim NS%, OL%, IL%
NS = Sheets.Count
For OL = 1 To NS
    For IL = 1 To OL
        If UCase(Sheets(OL).Name) < UCase(Sheets(IL).Name) Then _
        Sheets(OL).Move Before:=Sheets(IL)
    Next
Next
End Sub