Faster way to synchronize slicers from pivot tables in excel?

Hi,

I need to synchronize two slicercaches from two different pivot tables. My first approach would be this:

For Each s_item In s_cache1.SlicerItems
    If s_cache1.SlicerItems(s_item.Name).HasData = True Then
        s_cache2.SlicerItems(s_item.Name).Selected = True
    Else
        s_cache2.SlicerItems(s_item.Name).Selected = False
    End If
'Next s_item_cliente

This code runs perfectly well. The problem is that it is a bit slow, even using when disabling calculation, events and screenupdating.

Is there any faster way to accomplish this?

Thanks