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

[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