worksheetクラスのcopyメソッドが失敗しました。

VBA初心者です。
「worksheetクラスのcopyメソッドが失敗しました。」
エラー回避方法を教えてください。

やりたいことは、データ入力シートから雛形シートにデータを参照して、データ入力シートの1行ずつを新しいシートにしたいです。35シートぐらいをコピーしたら上記のエラーがでました。メモリ不足でエラーになるんだろうなぁということは予測つくのですが、なにか回避方法はありますか?
別のブックを使う方法でもよいです。ご教示ください。

コードはこんな感じです。
Sub シート作成1()
'データ行選択
Range("B9").Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.Unprotect
Rows("8:8").Select
Selection.AutoFilter
Selection.AutoFilter Field:=12, Criteria1:="<>"
Range("B9").Select
Range(Selection, Selection.End(xlDown)).Select
'選択したデータ行のシート作成
For Each 選択セル In Selection
Worksheets("ひな形").Copy after:=ActiveSheet
DoEvents
'シート名の変更
ActiveSheet.Name = 選択セル.Value
ActiveSheet.Tab.ColorIndex = 38
Next 選択セル
DoEvents
'オートフィルタを元にもどす
Sheets("データ入力シート").Select
Rows("8:8").Select
Selection.AutoFilter
Range("B1").Select
Columns("L:O").Select
Selection.EntireColumn.Hidden = True
Range("B1").Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowSorting:=True, AllowFiltering:=True
End Sub

よろしくおねがいします。

No.1 回答者： Sinogi 回答日時： 2009/06/15 18:05

私はこれで解決しました。

http://support.microsoft.com/kb/210684/ja

参考URL：http://oshiete1.goo.ne.jp/qa4952665.html

この回答へのお礼

ありがとうございました

お礼日時：2009/06/21 13:44