I guess that means Private Sub OptionButton1_Change() is now Private Sub NextGen_Change(), etc.

That negates use of the For i = 1 to 3 loops to establish sheet and Optionbutton names.
In place of the loops write 3 lines for sheets and 3 lines for optionbuttons each using the actual name.
Also change the sheet names accordingly elsewhere within the code.