Imagino q se vc vai usar botao de opção so vai ser possivel selecionar 1 de cada vez

Entao é so retornar o valor true do botao selecionado.

Mas eu preciso gravar SIM E NAO

Disponibilize seu arquivo com alguns dados

Tranquilo Prudencio, não dá para disponibilizar esse arquivo. Fiz o código da maneira abaixo e fucnionou, só que tive que colocar vários IF's! Queria uma ideia para simplificar! Mas está funcionando!

Obrigado pelo Retorno!

If Opt_Q01_Sim.Value = True Then
       
       .Cells(indice, 16).Value = "SIM"
       
       Else
       
       If Opt_Q01_Nao.Value = True Then
       
       .Cells(indice, 16).Value = "NÃO"
       
       End If
       End If
       
       
       If Opt_Q02_Sim.Value = True Then
       
       .Cells(indice, 17).Value = "SIM"
       
       Else
       
       If Opt_Q02_Nao.Value = True Then
       
       .Cells(indice, 17).Value = "NÃO"
       
       End If
       End If
       
       
       If Opt_Q03_Sim.Value = True Then
       
       .Cells(indice, 18).Value = "SIM"
       
       Else
       
       If Opt_Q03_Nao.Value = True Then
       
       .Cells(indice, 18).Value = "NÃO"
       
       End If
       End If
       
       
       .Cells(indice, 19).Value = Cmb_Q04_Escolha
       
       
  
       
       
       If Opt_Q05_Sim.Value = True Then
       
       .Cells(indice, 20).Value = "SIM"
       
       Else
       
       If Opt_Q05_Nao.Value = True Then
       
       .Cells(indice, 20).Value = "NÃO"
       
       End If
       End If
       
        If Opt_Q06_Sim.Value = True Then
       
       .Cells(indice, 21).Value = "SIM"
       
       Else
       
       If Opt_Q06_Nao.Value = True Then
       
       .Cells(indice, 21).Value = "NÃO"
       
       End If
       End If
       
        
        If Opt_Q07_Sim.Value = True Then
       
       .Cells(indice, 22).Value = "SIM"
       
       Else
       
       If Opt_Q07_Nao.Value = True Then
       
       .Cells(indice, 22).Value = "NÃO"
       
       End If
       End If

Deixei o codigo bem enxuto, sem verificar o valor do botao opcao "nao".
Mas para isso é preciso antes, fazer uma checagem e ver se o usuario marcou alguma opcao em cada conjunto.

 Dim j As Long
        For j = 1 To 7
            If j <> 4 Then
                If Me.Controls("Opt_Q0" & j & "_Sim").Value = True Then
                    .Cells(indice, j + 15).Value = "SIM"
                Else
                    .Cells(indice, j + 15).Value = "NÃO"
                End If
                Else
                 .Cells(indice, j + 15).Value = Me.Controls("Cmb_Q0" & j & "_Escolha")
            End If
        Next

    End With

.Cells(indice, 16) = IIf(Opt_Q01_Sim.Value = True, "SIM", IIf(Opt_Q01_Nao.Value = True, "NÃO", ""))

Valeu Meu Amigo!