Dear Forum,

I am creating a Pivot Table for my office report, I am working on the Performance Report and need to prepare the YTD Performance Report beginning from Apr-18 till Jul-18.
I need to make 4 separate reports i.e. Apr-18, Apr-18 and May-18, Apr-18, May-18 and Jun-18, Apr-18, May-18, Jun-18 and Jul-18.

Now I have a column in YTD Data where I have these months, I have also managed to create a Unique List but I don't know to pass these elements into the Page Filter using VBA as shown above.

I need help to create a list box where I can store and then select them at Run-Time and then pass it on to the Pivot Table.

Can someone please help me with the code..

'Insert Blank Pivot Table
Set PTable = PCache.CreatePivotTable(TableDestination:=PSheet.Cells(PivotStartRow, PivotColNo), TableName:=TableName)

'Insert Page Filters
With PSheet.PivotTables(TableName).PivotFields("Active Status")
    .Orientation = xlPageField
    .Position = 1
    .PivotItems("Y").Visible = True
    .PivotItems("N").Visible = False
End With

With PSheet.PivotTables(TableName).PivotFields("Role")
    .Orientation = xlPageField
    .Position = 2
    .PivotItems("FSA").Visible = True
    .PivotItems("LSE").Visible = True
    .PivotItems("Co-ordinator").Visible = True
End With

With PSheet.PivotTables(TableName).PivotFields("Month")
    .Orientation = xlPageField
    .Position = 3
    .PivotItems("Apr-18").Visible = True
    .PivotItems("May-18").Visible = True
    .PivotItems("Jun-18").Visible = True
End With
Due to the sensitive nature of the data I cannot share the file immediately...


Thanks in advance

Regards
e4excel