UserForm does not close

[azizrasul]

I have the following code in the Workbook Open event.

    Application.Visible = False
    UserForm.show

When UserForm opens, some code opens another userform called 'frmMessageBox2' which contains two buttons and a label. The two buttons have their captions called Yes and No respectively. The code that runs when these buttons are pressed is:-

Private Sub cmdNo_Click()

    strYN = "No"
    Unload Me

End Sub

Private Sub cmdYes_Click()

    strYN = "Yes"
    Unload Me
    
End Sub

The code on the Initialize event of UserForm is:-

    If DoesRegistryKeyExist("HKEY_CURRENT_USER\Software\Microsoft\Office\" & dblMSOfficeVersion & "\Excel\Security\Trusted Locations\Licence Key Generator\") = False Then
        With frmMessageBox2
            .lblMessage.Caption = strMessage
            .show
        End With
        
        If strYN = "No" Then
            Exit Sub
        ElseIf strYN = "Yes" Then
           'some code
        End If
    End If

When the Yes button is pressed then everything works fine and 'frmMessageBox2' closes. However when the No button is pressed, frmMessageBox2 appears again each time I presse the No button. What am I doing wrong?

 

[Logit]

Please post your workbook, with the code, to a CLOUD site for download so it can be inspected first hand.

 

[azizrasul]

Please post your workbook, with the code, to a CLOUD site for download so it can be inspected first hand.

Solved the problem. I had the following lines before opening 'frmMessageBox2' form which in effect was reactivating the form.

        Me.lstLicences.Visible = True
        Me.lstLicences.SetFocus

Don't understand why this would happen, but it seems to have solved the issue. I have placed the opening of 'frmMessageBox2' at the beginning of the code so that any subsequent code can work without re-activatibg and going into a loop. Hope that makes sense.

 

[Logit]

Glad you found an answer !