Pivot Table VBA Filter

[chaddres]

In my VBA code for my PivotTable, I have the below items hard coded. Is there a way to make the dates that I want to set to False relative? So, I want the date in Sheet1 J1 to be in place of "1/16/23" in the first row below. Is this possible?

    With ActiveSheet.PivotTables("PivotTable075342").PivotFields("DOB")
        .PivotItems("1/16/23").Visible = False
        .PivotItems("1/17/23").Visible = False
        .PivotItems("1/18/23").Visible = False
        .PivotItems("1/19/23").Visible = False
    End With

 

[chaddres]

Bump

 

[Domenic]

Have you tried...

.PivotItems(Worksheets("Sheet1").Range("J1").Value).Visible = False

???

 

[chaddres]

Have you tried...

.PivotItems(Worksheets("Sheet1").Range("J1").Value).Visible = False

???

Did not work, but thank you for the suggestion.

 

[Domenic]

What value does cell J1 actually contain?

Does it contain a true date value?

Or does it contain a text value that Excel can recognize as a date? If the latter, try...

.PivotItems(CDate(Worksheets("Sheet1").Range("J1").Value).Visible = False

Does this help?

If not, can you post a small sample of your data, along with the pivottable, using the xl2BB add-in?