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