[[20080620124045]]　『20回くらい繰り返すとエラー』（サン）　ページの最後に飛ぶ

『20回くらい繰り返すとエラー』（サン）

 おなじコードなのに、20回くらい繰り返すと20回目くらいにエラーがでます。

  Sheets("表").Select
     Sheets("表").Copy After:=Worksheets(Worksheets.Count)

    ActiveSheet.Name = Sheets("カレンダー").Range("E7").Value  '月の名前に変える
     ActiveSheet.Visible = False 'とりあえずインビジブルにしておきます

 シート「表」をコピーし、新しいシートを「カレンダー」のE7の値にするコードです。
 ほとんど毎回うまくいきますがたまにエラーになり、「表」というシートがコピーされ 消えてしまいます。

 もう一箇所あって

 Sheets("今月").Copy Before:=Sheets(3)

 これも、20回に一回くらいここで黄色になってとまります。
 ほとんど大丈夫なのですが。

 どなたか原因が分かる方いらっしゃればおしえてください。

 こちらが関係していないでしょうか。
http://support.microsoft.com/kb/210684/ja

 連続してのシートのコピーは、あまりしないほうが良いようです。
 (Mook)

 Mookさまありがとうございます。2つ目のは、それが原因でした。（サン）

コメント返信：