Dependendo do que pretende o ideal seria como o Marcelo falou, utilizar botões de opção, mas se tem de ser checkbox, coloque a rotina em um módulo e associe a macro On_Off_CheckBoxs aos CheckBox.
Sub On_Off_CheckBoxs()
Dim ws As Worksheet
Dim chk As CheckBox
Dim sQualChk
Set ws = ActiveSheet
'Capturar o checkbox que foi clicado
Set chk = ws.CheckBoxes(Application.Caller)
'Armazena o nome do checkbox habilitado
sQualChk = chk.Name
'Percorre todos os checkbox
For Each chk In ActiveSheet.CheckBoxes
'Verifica os nomes e desmarca mantendo somente o que foi clicado
If sQualChk <> chk.Name Then
With chk
.Value = False
End With
End If
Next chk
End Sub
Lembrando, que esta rotina esta fazendo somente a verificação e tornando Falso os demais checkbox, não tem nenhuma outra ação associada a macro, se for ter tem de ajustar a rotina.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 28/04/2016 1:13 pm