Selecting most recent date in slicer VBA

[healeydm]

I'm stumped on this one - I'm currently automating a file and I need the macro to select the most recent date slicer dynamically. My current code is selecting all of the dates listed in the slicer instead of the most recent date.

Sub maxdateslicer()
Sheets("FIP").Select
Application.ScreenUpdating = False
With ActiveWorkbook.SlicerCaches("slicer_Execution_Date1")
    .ClearManualFilter
    For Each myitem In .SlicerItems
        myitem.Selected = CDate(myitem.Name) = Date - 1
    Next myitem
End With
Application.ScreenUpdating = True

 

[RoryA]

A reminder:

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at:

Selecting most recent date in slicer

I'm stumped on this one - I'm currently automating a file and I need the macro to select the most recent date slicer dynamically in this specific tab. My current code is selecting all of the dates ...

stackoverflow.com

There is no need to repeat the link(s) provided above but if you have posted the question at other places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.