Visible Property

Sub CompareMonths()

Dim pvt As PivotTable

Dim pvi As PivotItem

Dim sMonth As String

sMonth = "Jan"

Set pvt = ActiveSheet.PivotTables(1)

For Each pvi In pvt.PivotFields("Years").PivotItems

If pvi.Name <> "2006" And pvi.Name <> "2007" Then

pvi.Visible = False

End If

Next pvi

pvt.PivotFields("Date").PivotItems(sMonth).Visible = True

For Each pvi In pvt.PivotFields("Date").PivotItems

If pvi.Name <> sMonth Then pvi.Visible = False

Next pvi

End Sub