質問: オプションボタンとコンボボックスを連携させることが出来ません。
回答: > オプションボタンを変更したら > どんどんコンボボックスが増えてしまいます。 コンボボックスの数が増えるのではなく リストの行数が増えていく、という意味ですよね? 追加する前に コンボボックスのリストをクリアするコードが必要です。 cmb.Clear あるいは 1件ずつ追加せず、List を設定するという方法もあります。 cmb.List = Worksheets("シート2").Range("B3:B" & Last).Value この場合、クリアするコードは不要です。