Select first item in slicer with OLAP pivot source

[Zenaida]

How do I select the first item in either the slicer or the pivot table? This is a date field and both the pivot table and slicer are sorted by descending so the newest date is always listed first. The below code works if I always want to select October 27, 2020; however, I need the most recent date selected. Because of how I have my pivot table/slicer sorted, the newest date should always be listed first. Code that will either select the first item or select the newest date will work. The field is formatted as a date, not date/time.

ActiveWorkbook.SlicerCaches("Slicer_Dates").VisibleSlicerItemsList = Array("[tblDates].[Dates].&[2020-10-27T00:00:00]")

I appreciate any assistance you can provide. Thank you.

----------------------------------------
Office 365 Business

 

[Zenaida]

Figured out how to do it:

Dim MyReportDate As String
Dim LocalMax As Date
Dim MyRange As Range

    Set MyRange = Worksheets("Pivot Tables").PivotTables("pvttblDates").PivotFields("[tblDates].[Dates].[Dates]").DataRange
    LocalMax = Application.WorksheetFunction.Max(MyRange)
    MyReportDate = Format(LocalMax, "yyyy-mm-dd")
    Sheets("Pivot Tables").PivotTables("pvttblDates").PivotFields("[tblDates].[Dates].[Dates]").VisibleItemsList = Array("[tblDates].[Dates].&[" & MyReportDate & "T00:00:00]")