Vervang alle code boven "Set OutApp" door onderstaand.
Probeer ook "refresh bij openen werkboek" uit te zetten voor de draaitabellen. Misschien lost dat de eerste melding op
arr = Array("January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December")
iGisteren = Date - 1
With ActiveWorkbook.SlicerCaches("Slicer_dag")
For i = 1 To .SlicerItems.Count
.SlicerItems(i).Selected = .SlicerItems(i).Name = Day(iGisteren)
Next i
End With
With ActiveWorkbook.SlicerCaches("Slicer_maand")
For i = 1 To .SlicerItems.Count
.SlicerItems(i).Selected = .SlicerItems(i).Name = arr((Month(iGisteren) - 1))
Next i
End With
With ActiveWorkbook.SlicerCaches("Slicer_jaar")
For i = 1 To .SlicerItems.Count
.SlicerItems(i).Selected = .SlicerItems(i).Name = Year(iGisteren)
Next i
End With