Este fórum está sendo desativado

[Dunguinha]

Boa tarde.
Na planilha anexa não consegui fazer com que a MsgBox apareça direito.
Se não selecionar nenhum OptionButton aparecer a MsgBox, mas caso algum selecionado não aparecer MsgBox.

[babdallas]

Tente isso

Código: Selecionar todos

Private Sub CommandButton1_Click()
    If OptionButton1 Then
       TextBox1.Text = "CERTO"
    ElseIf OptionButton2 Then
        TextBox1.Text = "ERRADO"
    Else
        VBA.MsgBox "Faça uma escolha...!"
    End If
End Sub

[Dunguinha]

Era isso mesmo. Obrigado.