Afkrydsningsfelter kædet med celler

Der er en mulighed for at styre dettte med kode. Se om du kan bruge følgende kode til noget:
Sub Test()
    Dim shp As Excel.Shape
    For Each shp In ActiveSheet.Shapes
        shp.ControlFormat.LinkedCell = "$D" & Mid(shp.TopLeftCell.Address, 3)
       
    Next
End Sub

Koden løber i mit tilfælde igennem alle checkbox og setter linked cell til kolonne D for den pågældende række hvor checkbox befinder sig. Men du må være obs på at en chekbox ikke nødvendigvis befinder sig i en bestemt celle. Første gang jeg checket, havde jeg ikke lavet rækkehøjden stor nok på alle linier, så to av checkboxerne havde berøreing med rækken nedenunder. Da brugte jeg BottomRightCell, i stedet for TopLeftCell, og fik derfor placeret LinkedCell forkert. Men modsat problem vil jeg have i viste kode, dersom toppen af checkboxen har berøring med forrige række.

Du skla nok prøve dig lidt frem, men det skulle være mulig at styre LinkedCell med kode, så du slipper at manuelt justere dette.