【ExcelVBA】知見の深い方にお尋ねします。

Excel2000で似たような現象を経験したことがあって、参照URLのように sheet の copy によってSheet名が sheet1111... となってしまうのが原因でした。

ご参考まで。

シート数はメモリによるようなので、メモリによってコピーできる数が決まるようです。

マシンのメモリを増やしてみたらいかがでしょうか？

Excelのバージョンおよびコードを見せていただければより助かりますが。。

（１）Excel97で、ボタンなどのコントロールからマクロをキックしている場合はフォーカスをはずすと良いそうです。

（２）Excel2000では、大量にコピーする場合は定期的に保存・閉じる・開くを実行することにより問題を回避できるそうです。

最後にMSのナレッジベースの検索結果（全部は見ていないので）

実験して再現しました。コピーした新しいシートの「後」にコピーを挿入するとエラーになるようです（なんとなくWorksheetsのインデックスがメモリー上更新されていないとかそんな感じ）。下記の通りにすれば問題は起きませんので試してみてください：

Sub CopySheets()

Dim ws, cp As Worksheet

Set ws = ActiveWorkbook.Worksheets(”Sheet1”)

For i = 1 To 200

ws.Copy After:=ws

ActiveSheet.Name = ”Copy” & (201 - i)

Next

End Sub

ＵＲＬはダミーです。

当方の環境でも再現しました。

当初は発生しなかったのですが、シートにオブジェクトを増やしたところ問題文のエラーメッセージが出ました。

まずはオリジナルとなるシートのデータ量を減らすこと（セルのデータ、シート上のオブジェクト）、およびウィンドウズの仮想メモリなどの設定を見直すことをお勧めします。

技術的な回答ではないので、ポイントはいりません。

３番目の答えについていたコメントのサンプル、４番目の答えのサンプル、どちらも私の環境ではエラーが出ないのです。

２番目の方と同じく、私もこのエラーにはシステムやメモリが関係しているような気がしてなりません。

参考までに、こちらの実験環境を書きます。

WindowsXP Professional SP2

Excel2003

メモリ：1GB CPU:2.8MHz

コピーしたのはＡ１〜Ｌ１０８まで

文字や罫線が入り混じったシートです。

実行したマクロは以下のとおりです。

Sub CopySheets()

Dim ws, cp As Worksheet

Set ws = ActiveWorkbook.Worksheets(”Sheet1”)

For i = 1 To 500

ws.Copy After:=ws

ActiveSheet.Name = ”Copy” & i

Next

End Sub