pq não usa combobox?

fiz com combobox mas não gostei. Se puderem me mostrar um exemplo na minha planilha, posso fazer o restante. Presico que os 2 últimos pontos que levantei sejam atendidos. Por exemplo, no modelo que fiz com combobox, qundo volto a acessar o form, ele não está marcado, dessa forma não sei quais opçoes escolhi anteriormente. No form com o combobox consegui colocar mensagem me questionando sobre a mudança da opção, já no checkbox, por serem 2 botões, eu não consegui. Lembrem-se: sou um leigo que estou aprendendo com ajuda do pessoal aqui do site e com minha vontade de aprender. Pode ser que seja coia simples ou mesmo complicada, se me derem um exemplo, eu consigo fazer o restante.

poxa... ainda espero...

Veja no anexo se lhe auxilia.
Diminui o numero de controles, e o sim ou não é atraves de uma unica checkbox
Veja a sugestão nos codigos do comando click até a 6, dai em diante precisa ser alterado.
Para "carregar" as informações criado no evento Initialize do form, até check 4 ok os demais precisam ser alterados

Deixei tb um exemplo usando o ToggleButton1 ao inves do checkbox

Reinaldo...

Boa tarde!

Vou utilizar a opção do ToggleButton1.... tenho um pequeno detalhe a acrescentar.
Conforme informado no início do tópico, quero ser questionado sobre a escolha do "NÃO" nas opções do preenchimento.
Coloquei a mensagem me perguntando se desejo continuar ou não, porém, quando clico em "NÃO"...(não desejo continuar), a opção deve voltar para 'SIM", só que não está voltando. Acho que o problema é exatamente no trecho da mensagem.

Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
Label3.Caption = "SIM"
Sheets("validação").Range("B3") = "SIM"
Else
Label3.Caption = "NÃO"
Sheets("validação").Range("B3") = "NÃO"
MsgBox ("  Esta opção desobriga o preenchimento do" & Chr(13) & _
"''Nome Fantasia'' da empresa. Está certo disto?"), vbExclamation + vbYesNo, "Atenção"
End If
End Sub

Experimente assim:

Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
    Label3.Caption = "SIM"
    Sheets("validação").Range("B3") = "SIM"
Else
   mtb = MsgBox("  Esta opção desobriga o preenchimento do" & Chr(13) & _
    "''Nome Fantasia'' da empresa. Está certo disto?", vbExclamation + vbYesNo, "Atenção")
    If mtb = vbYes Then
        Label3.Caption = "NÃO"
        Sheets("validação").Range("B3") = "NÃO"
    Else
        Exit Sub
    End If
End If
End Sub