花ちゃん様お礼が遅くなってしまいまして申し訳御座いませんでした。m(__)m構造をちょっと変えて、Do Whileの中にFor 1 to 1 にし、その最後でDoEventsを入れたら上手く行きました。有難う御座いました。m(__)m