以前に” EXCELプルダウンメニューと数値設定”で追加した処理で
実行時エラー１３が出る。後の為に対策をメモしておく。
１．エラー内容と発生箇所
２．発生理由
下図枠内の処理で複数セルを空白にしている為。
Target.valueが単一のセル以外は不定になる事からエラーになる。
３．対策
Rangeを使わないで単独セルの設定に変える。
４．参考資料
下記のＷＥＢページにお世話になりました。ありがとうございます。
・Excel-VBA Target.Value はエラーの原因 ByVal Target As Range
＜個人的な感想＞
慣れない関数を使うと弊害がでてくるのはやむなし。