na invoer vba formule werkblad excel traag

[Peer44]

ik gebruik excel 2007

een werkblad met 43 regels, start op b5.
in b5 voer ik een klant in in c5 kan ik via validatie een artikel van die klant kiezen.
als ik nu in b5 een andere klant selecteer moet c5 automatisch gewist worden.

Dit geldt voor alle regels t/m 43.

de formule die ik nu invoer:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = ("$B$5") Then
Range("c5") = ""
End If
If Target.Address = ("$B$6") Then
Range("c6") = ""
End If
Application.ScreenUpdating = True

zo verder voor alle 43 regels, op deze manier is het werkblad erg traag.
Kan deze functionaliteit blijven maar dat het werkblad sneller berekend wordt?

 

[Hoornvan]

Peer44,

Werkt het zo sneller?

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = ("$B$5") Then [C5] = ""
  If Target.Address = ("$B$6") Then [C6] = ""
End Sub