Code: Select all
Sub Macro1()
Dim i As Long
For i = 1 To 12
Sheets("Dashboard").Range("J5").Value2 = i
ActiveWorkbook.SlicerCaches("NativeTimeline_Date").TimelineState.SetFilterDateRange Sheets("Dashboard").Range("I5"), Sheets("Dashboard").Range("K5")
Application.Wait (Now + TimeValue("0:00:01"))
ThisWorkbook.RefreshAll
Next i
End Sub