Как создать макрос, который автоматически выбирает самую последнюю дату в фильтре сводной таблицы

Question

Привет. Я пытаюсь создать макрос, который будет запускаться при открытии файла, и выбрать самую последнюю дату в фильтре для сводной таблицы.Данные в сводной таблице поступают из табличной модели SSAS.

Sub LatestDate()

    ActiveWorkbook.SlicerCaches("Slicer_Date").VisibleSlicerItemsList = Array( _
        "[DATE].[Date].&[2019-06-20T00:00:00]")
End Sub