lostruler, me baseando no modelo que anexou, assoocie a rotina abaixo a um botão ou simplesmente execute-a na aba onde estão os CheckBox :

Sub ChkBox_LinkedCell()
    Dim i
    Dim shShape As Shape
    
    Dim sLinha
    sLinha = 2    ' Inicia na Linha 2
    
    Application.ScreenUpdating = False
    
    While sLinha < 21 'Temos 21 Check Box - então 21 linhas
    
        For Each shShape In ActiveSheet.Shapes
            
           If shShape.Type = msoFormControl Then
              shShape.Select
             
                With Selection
                    .Value = xlOff
                    .LinkedCell = "B" & sLinha 'Link Range("B & Linha")
                    .Display3DShading = False
                    
                    sLinha = sLinha + 1
                    
                End With
            
           End If
        Next shShape
    
    Wend
    
    Range("A1").Activate

End Sub

Veja que a mesma foi feita conforme a quantidade de "Check Boxs" que tem na aba, ou seja 21, então são 21 linhas uma para cada um começando na Linha 2 coluna "B", se alterar a quantidade ou linkcell precisa arrumar na rotina.

[]s

lostruler,

Segue mais uma opção, com apenas uma caixa voce seleciona todas as outras.

Abraço.

Pessoal,

Sem palavras. Muito obrigado pela ajuda. Duas respostas extremamente úteis.

Abs.