VBA - 2 Change-Ereignisse verknüpfen

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng1 As Range
Dim rng2 As Range
Dim isect As Range

Set rng1 = Range("A6:N53")  
Set rng2 = Range("A1:N5")  

Set isect = Application.Intersect(Target, rng1) 'Range1 suchen  
If Not (isect Is Nothing) Then
    Range1_gefunden Target 'Procedur aufrufen  
    Exit Sub 'Fertig  
End If

Set isect = Application.Intersect(Target, rng2) 'Range2 suchen  
If Not (isect Is Nothing) Then
    Range2_gefunden Target 'Procedur aufrufen  
    Exit Sub 'Fertig  
End If

End Sub

Sub Range1_gefunden(Target As Range)
    MsgBox "die Änderungen wurden in A6:N53 getätigt"  
End Sub

Sub Range2_gefunden(Target As Range)
    MsgBox "die Änderungen wurden in A1:N5 getätigt"  
End Sub

If Target.Cells.Count > 1 then Exit sub