Zellen aus Matrix ausschliessen

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Spalte As Integer
Dim Zeile As Integer
For Spalte = 4 To 34
For Zeile = 4 To 64
If Zeile = 50 Or Zeile = 51 Or Zeile = 52 Or Zeile = 55 Or Zeile = 56 Or Zeile = 57_
Or Zeile = 60 Or Zeile = 61 Or Zeile = 62 Then GoTo M001
If Target.Column = Spalte And Target.Row = Zeile Then
If Target.Cells.MergeCells Then GoTo M001
Cancel = True
Target = "P"
End If
M001:
Next
Next
End Sub