Display pivot table filter values

Question

I have a pivot table where I have applied a date filter:

I am looking for a way to display the filter information in a cell.

eg between 1/1/2015 and 10/3/2015

I have tried the following to just get it to display the information in a message box:

Sub DisplayRange()

    With ActiveSheet.PivotTables("OrdersPerSlot").PivotFields("PickDate").PivotFilters(1)
        MsgBox "FilterType: " & .FilterType & vbCr _
         & "Value1: " & .value1 & vbCr _
         & "Value2: " & .value2
    End With

End Sub

I get the following error:

Next I moved the code into the "ThisWorkBook" Object in case there was some referencing issue and got this error:

Answer 1

I think you need VBA for this. By running the Macro Recorder while adding a date filter I came up with:

Sub GetPivotFilterDates()
Dim pvt As Excel.PivotTable
Dim pvtField As Excel.PivotField

Set pvt = Worksheets(1).PivotTables(1)
Set pvtField = pvt.PivotFields("Date Range")
With pvtField.PivotFilters(1)
    If .FilterType = xlDateBetween Then
        Worksheets(1).Range("A1").Value = "Filter is between " & .Value1 & " and " & .Value2
    End If
End With
End Sub