途中終了の回避について

質問

1つのブックに集計した結果を法人毎にシートに作成
するというプログラムを作成しました。
シートがかなりの数になり600シート以上になってしまうのですが
同じデータで全シートを作成できる時と途中で終了してしまう時があります。
これを回避する方法はありますでしょうか？

回答No.1

mindatg

どっかでエラーが発生してるんじゃないでしょうか？
データ数的にも、確実に処理できるように各関数に以下のようなエラー処理を組み込んで見直した方がよさげです。

Sub MyFnc()
On Error Goto ErrHandler　' エラーが発生した場合、指定したラベルへ飛ぶようにする
　' 処理
　Exit sub　' ここに来るなら正常終了
ErrHandler:
　' ラベルに飛ぶならエラーが発生しているのでメッセージボックスで詳細を表示
　Call MsgBox "関数名： MyFnc" & vbCrLf & "エラー： " & Err.Description
End sub

補足

返信ありがとうございます。
遅れて申し訳ありませんでした。
エラーではなく、途中シートを作成しようとすると
とまります。
同じデータで全件作成できるときとあります。