Indsætte checkboxe via makro

hvad med noget i denne retning:

Sub CheckBoxes()
    Dim height As Double
    Dim name As String
    For i = 0 To 3
        name = "CheckBox" & i + 2
        height = 9.75 + (i * 12.75)
        ActiveSheet.CheckBoxes.Add(405, height, 24, 17.25).Select
        Selection.name = name
    Next
End Sub

CheckBoxene bliver tildelt navn efter hvilken række de er indsat i.
Hvis du har anden højde på cellerne end 12,75, så skal det tilpasse, detsamme skal hvor det skal stå - hos mig er det i kolonne i.

ja, du har fat i noget af det rigtige. :-)
Men der er lige lidt tilrettelser.

1. Der skal ikke være nogen "label" i de enkelte chekcboxe. Det skal kun være checkboxene som skal være synlige.

2. Den skal teste i hvilke linjer den skal lave checkboxene. Den skal "kun" lave i de linjer der står noget i kolonne A (varierer fra 2-150 linjer)

3. De enkelte checkboxe skal linkes sammen med cellen i kolonne H i samme linje som checkboxen. Kolnne H er SAND/ FALSK og som udgangs punkt står de til SAND alle sammen når checkboxene bliver dannet.

Hvad præcis mener du med, at de skal være linket til cellen i H?

Hvis H er sand, så skal der være flueben, og ellers ikke?
Eller?

jep, det er korrekt.
Men den skal også have en kæde/link til cellen i kolonne H

Når man indsætter en checkbox som et kontrolelement manuelt kan man vælge en "cellekæde"
Når man indsætter en checkbox som et activeXobjekt manuelt kan man vælge en "linkedCell"

Ved begge løsninger hænger celler og checkboxe sammen.
Kan det lade sig gøre?

Jeg har forsøgt at optage med en makrooptager og der står der f.eks. :
        .LinkedCell = "a5"

Men jeg kan ikke finde ud af få det ind i koden.

Det kan sagtens lade sig gøre, jeg skal bare lige vide en ting.

Jeg har lavet noget, som indsætter checkbox, og linker til H cellen. Ligenu bliver værdien i H ændret til FALSK hvis der står noget deri.

Er det meningen, at checkboxen skal have flueben, hvis der står SAND, eller skal de være uden?

Sub CheckBoxes()
    Dim height As Double
    Dim name As String
    Dim h As Boolean
    For i = 2 To 4
        h = Cells(i, 8).Value
        If ActiveSheet.Cells(i, 1) <> "" Then
            name = "CheckBox" & i
            height = 9.75 + ((i - 2) * 12.75)
            ActiveSheet.CheckBoxes.Add(405, height, 24, 17.25).Select
            With Selection
                .name = name
                .Characters.Text = ""
                .LinkedCell = "H" & i
            End With
            If h Then
                Cells(i, 8).Value = True
            End If
        End If
    Next
End Sub

Hvis det ikke er meningen, at H skal være sand, hvis den var det, så kan du bare fjerne den sidste IF løkke

Yes, det var fuldstændig sådan jeg havde tænkt mig at den skulle løses. :-)

Mange tak for hjælpen.

Har du et svar så jeg kan afgive points

super