るしぇさん　ありがとうございます。
紹介していただいたサイトをみて調べてみたいとおもいます。

とりあえず End Subに移ってしまうのはモジュールを削除して作り直しました。