mehrere Range abfragen

Private Sub Worksheet_Change(ByVal Target As Range)
Dim objCell As Range
If Not Intersect(Target, Range("D6:M26", "Q6:R26", "V6:V26")) Is Nothing Then
Me.Protect Password:="abc", userinterfaceonly:=True
For Each objCell In Target
If Not Intersect(objCell, Range("D6:M26", "Q6:R26", "V6:V26")) Is Nothing Then _
objCell.Locked = objCell.Text  ""
'Next
'Dim objCell As Range
If Not Intersect(Target, Range("N6:P26", "S6:U26")) Is Nothing Then
Me.Protect Password:="def", userinterfaceonly:=True
For Each objCell In Target
If Not Intersect(objCell, Range("N6:P26", "S6:U26")) Is Nothing Then _
objCell.Locked = objCell.Text  ""
Next
End If
End Sub