Trigger an update when any OptionButton in a GroupName changes

Question

Hello,
I have a UserForm that's working relatively well.  However, there's something new I have to do.
I have three OptionButtons that each have a GroupName of "Cycle"
Year_A
Year_B
Year_B
Year_B happens to be the default for the form.  That default will change yearly.  Whenever the user selects a different OptionButton with the GroupName of "Cycle", I'd like a ListBox "ListBoxLiterature" to be repopulated. 
How do I go about doing this?
Many thanks for looking at this.
Phil

Answer 1

One way -
' these Optionbuttons are all in the same group
Private Sub OptionButton1_Change()
If OptionButton1 Then OptionChange
End Sub
Private Sub OptionButton2_Change()
If OptionButton2 Then OptionChange
End Sub
Private Sub OptionButton3_Change()
If OptionButton3 Then OptionChange
End Sub
Private Sub OptionChange()
Dim i As Long
Select Case True
Case OptionButton1: i = 1
Case OptionButton2: i = 2
Case OptionButton3: i = 3
End Select
MsgBox "Option " & i
' do stuff here
End Sub