Displaying Pivot Table items with a loopy loop

[Spajeoly]

So I have a pivot table with a date filter. I want to only display the dates that are within the last 63 days. Sinch! Just a freakin loop adding negatives.

However, some of these dates have a time after them.

So what I need to figure out, is can I have some sort of wild card or Left() integrated into the loop.

Here is what I have, and would work if my data souurce didn't suck.

    For i = -1 To -63 Step -1
        ActiveSheet.PivotTables("PivotTable3").PivotFields("LST_XP_DAT").PivotItems(CStr(DateAdd("d", i, Date))).Visible = True
            DoEvents
    Next