VBA Referencing Dynamic PivotItem

Question

This should be a simple question - how do I select the value of a pivot filter regardless of the actual cell it is in? In other words, I have a PivotTable with a report filter labelled 'Month', whose values go from January through to December. What code can I use to select the current month? Where do I go from this:

Dim Pt As PivotTable
Dim PtPageField As PivotField
Dim PtItem As PivotItem

Set Pt = Sheets("Pivot").PivotTables(1)
Set PtPageField = Pt.PageFields("Month")

I can't use simply Pt.PageRange.Select as this would select both the 'Month' cell and 'January' cell (for example). I also don't want to manually code that it selects 'January', 'February' etc and would like a more efficient solution that it selects whatever value is currently chosen.

Answer 1

You want to determine what value has been selected?

PtPageField.DataRange.Value

You want to set the value to the current month?

ptPage.DataRange.Value = Format(Now, "mmmm")