Leere zeilen ausblenden

Private Sub Worksheet_Activate()
Dim rng As Range
For Each rng In Range("A30:A47")
rng.EntireRow.Hidden = rng.Value = ""
Next
End Sub

Bei diesem Vorgang flackert aber das Dokument einige Sekunden wie "verrückt".
Kann man das Flackern verhindern?
Gruß Andreas