Userform problem [Message box for missing entry in opt and chk button]

[Admin]

Hi

Option Button value give either TRUE or FALSE and not ""

so try

If Not (optAAA.Value) + (optBBB.Value) + (optCCC.Value) Then
    optCCC.SetFocus
    MsgBox "Pls choose product"
    Exit Sub
End If

[ranthrave]

Thank you very much sir your code works fine

Heres the code I use before and put 'Test for incomplete entry

But I will use your code

    If optAAA = True Then
        ActiveCell.Offset(0, 6).Value = "AAA"
    ElseIf optBBB = True Then
        ActiveCell.Offset(0, 6).Value = "BBB"
    ElseIf optCCC = True Then
        ActiveCell.Offset(0, 6).Value = "CCC"
    Else
        ActiveCell.Offset(0, 6).Value = ""
    fraProduct.SetFocus
    MsgBox "Pls Choose product"
    Exit Sub   
 End If

How about in checkbox? Any ideas sir

[ranthrave]

Hi

Option Button value give either TRUE or FALSE and not ""

Sir Admin Based on your code it seems to be the and Checkbox Button also works but only for 1 box.
Assuming 2 checkbox or 3 checkbox will be tick

Kindly help me