Selecting Slicer Items

I have problem with my VBA code in excel. VBA code is used for selecting the last date during opening Excel file in slicer.
The code, error and slicer are in PDF file you can to see in enclose.

The mistake is on row:

Code:

---

.SlicerItems("16.2.2015").Selected =True

---

(Mistake is: runtime error 5 Invalid procedure call or argument.)

Code:

---

Sub GroundHogDay()
    Application.ScreenUpdating =False
    Application.EnableEvents =False
    Application.Calculation =False
    ManualUpdate =False
    Application.Calculation = xlCalculationManual
    Dim today AsDate
    today = Now
    Dim todayString AsString
    todayString = Format$(today,"dd.mm.yyyy")
    Dim Item As SlicerItem
    ThisWorkbook.SlicerCaches("Průřez_ProcessingDate").ClearManualFilter
    With ActiveWorkbook.SlicerCaches("Průřez_ProcessingDate")
        'earliest data available in the data
        ***.SlicerItems("16.2.2015").Selected = True    ------------- here is error***
    EndWith
    For Each Item In             
        ThisWorkbook.SlicerCaches("Průřez_ProcessingDate").SlicerItems
        If Item.Name = todayString Then
            Item.Selected =True
        Else
            Item.Selected =False
        EndIf
    Next Item
    ThisWorkbook.SlicerCaches("Průřez_ProcessingDate1").ClearManualFilter
    With ActiveWorkbook.SlicerCaches("Průřez_ProcessingDate1")
        'earliest data available in the data
        **.SlicerItems("16.2.2015").Selected =True 
    EndWith
    For Each Item In 
        ThisWorkbook.SlicerCaches("Průřez_ProcessingDate1").SlicerItems
        If Item.Name = todayString Then
            Item.Selected =True
        Else
            Item.Selected =False
        EndIf
        Next Item
        ThisWorkbook.SlicerCaches("Průřez_DatExp").ClearManualFilter
        With ActiveWorkbook.SlicerCaches("Průřez_DatExp")
            'earliest data available in the data
            .SlicerItems("16.2.2015").Selected =True
        End With
        For Each Item In ThisWorkbook.SlicerCaches("Průřez_DatExp").SlicerItems
            If Item.Name = todayString Then
                Item.Selected =True
            Else
                Item.Selected =False
            EndIf
        Next Item
        Application.ScreenUpdating =True
        Application.EnableEvents =True
        Application.Calculation =True
        ManualUpdate =True
        Application.Calculation = xlCalculationAutomatic
        ThisWorkbook.RefreshAll
EndSub

---

Please use a thread title that does reflect the content of your question.

Unfortunatelly, I do not know how I can change title.

Bump for new Title and move to different Forum

To select the last Slicer item, try something like this

Code:

---

Sub test()
    Dim i As Long, n As Long   
    With ActiveWorkbook.SlicerCaches("Slicer_Account")
        n = .SlicerItems.Count       
        For i = 1 To n - 1
            .SlicerItems(i).Selected = False
        Next I       
        .SlicerItems(n).Selected = True
    End With
End Sub

---

I could kiss you!!! i've been looking for this FOREVER!!!! THANK YOU!!!! but i want the first thing to be selected, so im going with

Code:

---

Sub Update_Slicer_Date()
    Dim i As Long, n As Long   
    With ActiveWorkbook.SlicerCaches("Slicer_Day_of_Week")
        n = .SlicerItems.Count       
        For i = 2 To n - 0
            .SlicerItems(i).Selected = False
        Next i       
        .SlicerItems(n).Selected = False
    End With   
    With ActiveWorkbook.SlicerCaches("Slicer_Day_of_Date")
        n = .SlicerItems.Count       
        For i = 2 To n - 0
            .SlicerItems(i).Selected = False
        Next i       
        .SlicerItems(n).Selected = False
    End With
End Sub

---

Quote:

---

Originally Posted by Paul_Hossler

To select the last Slicer item, try something like this

Code:

---

Sub test()
    Dim i As Long, n As Long   
    With ActiveWorkbook.SlicerCaches("Slicer_Account")
        n = .SlicerItems.Count       
        For i = 1 To n - 1
            .SlicerItems(i).Selected = False
        Next I       
        .SlicerItems(n).Selected = True
    End With
End Sub

---

---