Dim i As Long, j As Long
Application.ScreenUpdating = False
j = 0
With ActiveWorkbook.SlicerCaches("Segment_date")
For i = 1 To .SlicerItems.Count
If .SlicerItems(i).Selected = False Then
.SlicerItems(i).Selected = True
j = i
Exit For
End If
Next i
If j = 0 Then
For i = 2 To .SlicerItems.Count
.SlicerItems(i).Selected = False
Next i
End If
End With
Application.ScreenUpdating = True
End Sub