「同じ適用範囲内で宣言が重複しています。」エラーメッセージによると、てやんでぃ!分かったから何度も何度も(型を)宣言すンじゃねェ!とのことです。選択肢ごとに同じことを書いていたので怒られてしまいました。いうわけで、変数の宣言を1回に省いてみます。Sub修正してみました。これを実行してみると...今度は、その先で変数が定義されていませんと出ました...「変数が定義されていません。」これはなんか当然のように知らない名前が出てきましたけど、どっかで教えてくれましたっけ?と聞かれているみたいです。個人的に、よくやるミスです...で、上の画像ではThisSheetがハイライト(強調)されているので、コードを上にさかのぼって確認してみると...いた!しかも上のプロシージャではちゃんと伝言(変数を引き渡し)している...うーん、ケアレスミスということですね...でもちゃんと警告してくれるのでうっかり人間には助かります...修正してみました。