Boa noite!!

Pode haver vários controles checkbox's, qual deles....
Controle de Formulario, Controle ActiveX, Controle de UserForm

Private Sub CheckBox1_Click()
     
 Dim ctrl As OLEObject
  
  For Each ctrl In Me.OLEObjects
    If TypeName(ctrl.Object) = "CheckBox" Then
    ctrl.Object.Value = True
    End If
  Next
     
End Sub
Dim i As Integer 
For i = 1 To 2000 
    If ActiveSheet.OLEObjects("CheckBox" & i).Object.Value = True Then 
        ActiveSheet.OLEObjects("CheckBox" & i + 2000).Object.Value = True 
    End If 
Next 

If Sheets("Select Sources").CheckBox1.Value = True Then 
    For i = 1 To 100 
        Sheets("Select Sources").OLEObjects("CheckBox" & i).Object.Value = True 
    Next i 
End If 

Att

Paulo, por se tratar de assunto diferente, o ideal é sempre abrir novo Tópico, assim mantemos o Forum organizado e facilita na ferramenta de Pesquisa.

Como o Alexandre citou, você não disse se os CheckBox estão na Planilha ou em um Formulário (UserForm), apesar das instruções serem parecidas os mesmos teem nomes diferenciados nas rotinas.

Se for na Planilha, de uma olhada no exemplo do Tópico abaixo.
Baixe o exemplo e veja se ajuda.
Planilha Pedidos
viewtopic.php?f=21&t=2972

Se pesquisar no Forum por "CheckBox" encontrara vários outros tópicos, por isto que é importante mantermos o forum organizado com o Titulo a que se refere a duvida.

[]s