Userform Problem

[counihan3]

I am trying to have the following optionbutton value changed to false if the answer to a messanger box is no. For some reason I cannot get the value to change to false.

Private Sub CommandButton1_Click()
If OptionButton1.value = True Then
    ans = MsgBox("Are you sure that you want to delete this item?", vbYesNo, "Delete")
        If ans = vbYes Then
            Rows(fA).Delete
            Unload Me
        End If
    Exit Sub
        If ans = vbNo Then
            UserForm1.OptionButton1.value = False
        Exit Sub
    End If
End If
    Call complete
End Sub

 

[mikerickson]

If you remove every Exit Sub line, it should work fine. (Assuming that fA is a public variable greater than 0.)

 

[counihan3]

Thanks, that took care of it.