しまった対策を書いていなかった。3つか､､､ 1・メインFORループのインデックスを違う変数に変える 2・サブFORループのインデックスを違う変数に変える 3・サブルーチンの代わりにユーザー定義関数を使う でしょうか。3は試してないのでわからないが、1・2は動作確認したので合ってると思います