Userform Dependent Lists fails to display when OptionButtons added

Hello,

I have modified a Parent/Child/Grandchild Dependent Listbox example that was kindly posted by D.Kusleika of Dailydoseofexcel. I have added some option buttons to the Userform, but in so doing, it causes some of the Listboxes to remain blank until the user selects an item of interest. I just cant find a way to consistently populate the three list boxes when the form first opens. Removing the option buttons and everything is fine.

Secondly, could anyone suggest some code that remembers what option button was selected the last time the Userform was opened ?

Many thanks

Richard

This saves the last OptionButton selected to cell D2 on Sheet1. It then selects from that saved setting the OptionButton when the userform is re-initialized. This seems to cure the blank listboxes as well.

Private Sub UserForm_Initialize()
    If Sheets("Sheet1").Range("D2").Value > 0 Then
        Me.Controls("OptionButton" & Sheets("Sheet1").Range("D2").Value).Value = True
    End If
End Sub
    
Private Sub UserForm_Terminate()
    Dim iOpt As Integer
    Select Case True
        Case OptionButton1.Value: iOpt = 1
        Case OptionButton2.Value: iOpt = 2
        Case OptionButton3.Value: iOpt = 3
    End Select
    Sheets("Sheet1").Range("D2").Value = iOpt
End Sub

Thanks, AlphaFrog. The save for the option button works perfectly. However, the problem with the blank child & grandchildren boxes still exists. It is strange, sometimes those two boxes are populated and at other times, they are not. Eg if you save the file and re-open, the lists do not update until you select a Parent. Frustrating !

If you like a challenge, then I would be welcome any help !

thx

You're welcome.

I notice if you click the button on Sheet1 to initiate the Userform, all the listboxes populate because the assigned macro to that button does help configure the listboxes. If you just run the UserForm's code from the VBA editor, the listboxes don't populate because the assigned macro isn't run.

Otherwise, I haven't noticed the blank listboxes.

After I saved the modifications. it worked !