VBA-code soms niet uitvoeren

[Tsarevitsj]

Hallo, ik heb in een aantal werkbladen de volgende code geplaatst;

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("AI5:AI60")) Is Nothing Then
Inkleuren_01
End If
End Sub

Dit werkt top maar nu wil ik dat onder bepaalde omstandigheden, b.v. een regel invoegen in de benoemde range, deze code niet wordt uitgevoerd.
Kan iemand mij de gouden tip geven, ben al wat dagen aan het worstelen hiermee.

Ik werk met Excel XP (2002)

Bij voorbaat dank

 

[Roncancio]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("AI5:AI60")) Is Nothing And Target.Count = 1 Then
    Inkleuren_01
End If
End Sub

Met vriendelijke groet,


Roncancio

 

[Tsarevitsj]

Roncancio, je bent geweldig...werkt toppie hoor en zo simpel. :thumb:

Ik was natuurlijk weer veel te moeilijk bezig...