EXCEL2002で実行時エラー1004を回避するには？ (ID:112342)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 マクロの処理内容はシートを追加していき、シート名をつけていく 単純なものです。 EXCEL2002で以下のようなVBAマクロを組んだのですが実行時、 ループ５６回目程度で『実行時エラー１００４ worksheet クラスの COPYメソッドが失敗しました』のエラーが表示 されてしまいます。修正方法を教えて頂ければ幸いです。 なお、２回目実行時には数回のループ中でエラーになってしまいます。 Dim i As Integer Dim newSheetNo As Integer For i = 1 To 95 newSheetNo = i + 3 Sheets("シート１").Select Sheets("シート１").Copy After:=Sheets(newSheetNo - 1) ※．この行でエラーになってしまいます！！ Sheets(newSheetNo).Cells(4, 2).Formula = Sheets("名簿").Cells(i + 3, 2).Formula '係名を名簿からコピー Sheets(newSheetNo).Cells(4, 6).Formula = Sheets("名簿").Cells(i + 3, 6).Formula '職員コードを名簿からコピー namae = Sheets("名簿").Cells(i + 3, 7).Formula '氏名を名簿からコピー Sheets(newSheetNo).Cells(4, 10).Formula = namae Sheets(newSheetNo).Name = namae Next i