Nomear checkbox no excel através de variáveis.

[Júlio Torres]

Boa tarde.

Gostaria de saber como faço pra renomear  15 checkboxes dinamicamente.

Por exemplo: Tenho 15 checkboxes, e gostaria de nomeá-las CB1,CB2,CB3... CB15, de forma a criar uma macro para que, quando clicar no CB1, os demais ficarem desabilitados, quando clicar no CB2, os demais ficarem desabilitados, etc.

 

Vou enviar o que fiz, mas que não está dando certo.

Sub CB1_CLICK()

Dim nome, num, linha As Integer
Dim ultlinha As Variant

p = "Planilha28"
ultlinha = Sheets(p).Cells(Rows.Count, "A").End(xlUp).Row

For linha = 1 To ultlinha
    nome = "CB" & linha
    If Sheets(p).Cells(linha, 1).Value <> True Then       
       Sheets(p).nome.Enabled = False
    End If
Next linha

End Sub

Sub CB2_CLICK()

idem

End Sub

Sub CB3_CLICK()

idem

End Sub

...

Sub CB14_CLICK()

idem

End Sub

 

Eu linkei os checkboxes com as linhas de forma que o loop corresponda ao número do checkbox. Por exemplo, CB1, A1; CB2, A2...; CB15, A15

 

Desde já agradeço a atenção