nieuwe rij is een nieuwe checkbox

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ToRow As Long
    Dim LastRow As Long
    Dim MyLeft As Double
    Dim MyTop As Double
    Dim MyHeight As Double
    Dim MyWidth As Double
    '--------------------------
    LastRow = Range("C65536").End(xlUp).Row
    For ToRow = 2 To LastRow
        If Not IsEmpty(Cells(ToRow, "C")) Then
            '-
            MyLeft = Cells(ToRow, "A").Left
            MyTop = Cells(ToRow, "A").Top
            MyHeight = Cells(ToRow, "A").Height
            MyWidth = MyHeight = Cells(ToRow, "C").Width
            '-
            ActiveSheet.CheckBoxes.add(MyLeft, MyTop, MyWidth, MyHeight).Select
             With Selection
                .Caption = ""
                .Value = xlOff
                .LinkedCell = "C" & ToRow
                .Display3DShading = treu
            End With
        End If
    Next
End Sub