variable Checkbox Nachbarzelle

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
Dim oChk As OLEObject
Application.ScreenUpdating = False
If Not Intersect(Target, Range("A2:A50")) Is Nothing Then
For Each Zelle In Intersect(Target, Range("A2:A50"))
For Each oChk In ActiveSheet.OLEObjects
If oChk.TopLeftCell.Address = Zelle.Offset(, 11).Address Then
oChk.Delete
End If
Next oChk
If Zelle.Value = "" Then
Else
Set oChk = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", _
Link:=False, DisplayAsIcon:=False)
With oChk
.Left = Zelle.Offset(, 11).Left + 1
.Top = Zelle.Top + 1
.Object.Caption = ""
.Interior.ColorIndex = xlNone
End With
End If
Next Zelle
End If
End Sub