Help on how to stop screen flickering

Hi all,
I am trying to stop screen flashing when selecting slicer from the ‘summary sheet’:

Sheet1: data in pivot table

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("b12")) Is Nothing Then
Range("b2:k15").Copy (Worksheets("summarysheet").Range("b41:k95"))
End If
Application.ScreenUpdating = True
End Sub

Sheet2: data in pivot table

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("b12")) Is Nothing Then
Range("b4:s8").Copy (Worksheets("summarysheet ").Range("b18:s22"))
End If
Application.ScreenUpdating = True
End Sub

Sumarysheet --- has slicer in power pivot - the flickering occurs when slicer is select.

Other than the code works fine. I though the Screenupdating method will handle that , but no luck.


Any help would really appreciated