Como asignar una macro aun filtro o segmentación de datos en excel y después de que corra la macro siga funcionando normal

Tengo una hoja de excel con varios datos a la cual le inserte una tabla y gráfico dinámico, y segentacion de datos, en otra hoja tengo un mapa en el cual tengo esos elementos, lo que deseo en que al seleccionar un municipio del filtro o slicer me aparezca toda su info y a la vez me pinte de color el municipio en el mapa, mi código ya funciona al tener una selección pinta el mapa pero el slicer o filtro se queda como bloqueado con la selección anterior como puedo hacer para que siga trabajando

Sub Demo()

Dim i As Integer
'Dim sI As SlicerItem

With ActiveWorkbook.SlicerCaches("SegmentaciónDeDatos_Municipio")

For i = 1 To .SlicerItems.Count
If .SlicerItems(i).Selected = True Then
'cStandard = shtconfig.Range("Colstandar").Interior.COLOR
cDestacado = shtconfig.Range("Coldestacado").Interior.COLOR

ActiveSheet.Shapes(.SlicerItems(i).Value).Fill.ForeColor.RGB = cDestacado
Else
.SlicerItems(i).Selected = False
cStandard = shtconfig.Range("Colstandar").Interior.COLOR
'ActiveSheet.Shapes("Michoacan").Fill.ForeColor.RGB = cStandard
ActiveSheet.Shapes(.SlicerItems(i).Value).Fill.ForeColor.RGB = cStandard
End If
Next i
End With

End Sub