Zeilen ein- bzw. ausblenden

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A5").Value = "x" Then
Range("4:15").EntireRow.Hidden = True
Else
Range("4:15").EntireRow.Hidden = False
End If
End Sub

Das funktioniert auch ; die Zeilen 4 bis 15 werden je nach Wert „A5“ ein- bzw. ausgeblendet. Das Problem ist, das beim „Blättern“ von Zelle zu Zelle die Bildschirmanzeige zittert.
Ich denke ihr könnt mir helfen und bedanke mich im Voraus .