[gr8styl]

Μανώλη ο παρακάτω κώδικας δημιουργεί 20 CheckBoxes στα κελιά Q1:Q20 (προσάρμοσέ την περιοχή στις ανάγκες σου) και καταχωρεί την τιμή FALSE δηλαδή όχι τσεκαρισμένα
Πατώντας το CheckBox που καλύπτει το Q3 αλλάζει το περιεχόμενο του κελιου Q3 από FALSE σε TRUE
Κάνοντας εισαγωγή κελιών ή γραμμών μεταξύ 5 και 6 τα check boxes μετατοπίζονται και προσαρμόζουν την σύνδεσή τους.

Sub Add_CheckBoxes()
Const Rng = "Q1:Q20"
Dim c As Range, b As OLEObject
Application.ScreenUpdating = False
ActiveSheet.Range(Rng).ColumnWidth = 1.5
For Each c In ActiveSheet.Range(Rng)
    c(, 1).Value = False
    Set b = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", _
            Left:=c.Left, Top:=c.Top, Width:=c.Width, Height:=c.Height)
    With b
        .Placement = xlMoveAndSize
        .LinkedCell = c(, 1).Address
        With .Object
            .BackStyle = fmBackStyleOpaque
            .Caption = ""
        End With
    End With
Next
Application.ScreenUpdating = True
End Sub