Portucale
Member
Hi,
In certain occasions users get the following message when trying to open a workbook containing data which can be drilled down with the use of slicers.
Error message:
Runtime Error '-2147417848 (80010108)'
Automation Error
The Object Invoked has disconnected from its clients
When I select the "Debug" button it takes me to the code part
below the complete code:
I am struggling to identify the error, so any help would be very much appreciated,
Thanks in advance,
In certain occasions users get the following message when trying to open a workbook containing data which can be drilled down with the use of slicers.
Error message:
Runtime Error '-2147417848 (80010108)'
Automation Error
The Object Invoked has disconnected from its clients
When I select the "Debug" button it takes me to the code part
Code:
For Each slcr In ActiveWorkbook.SlicerCaches
below the complete code:
Code:
Private Sub clearslcr()
Dim slcr As SlicerCache
'~~~ Set the application properties
With Application
.Calculation = xlCalculationManual
.DisplayAlerts = False
.ScreenUpdating = False
.EnableEvents = False
End With
' ~~~ Run process
For Each slcr In ActiveWorkbook.SlicerCaches
slcr.ClearManualFilter
Next slcr
'~~~ Restore the application properties
With Application
.DisplayAlerts = True
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Sub
I am struggling to identify the error, so any help would be very much appreciated,
Thanks in advance,