うまくいきません。（シートの連続挿入）

業務にて、選択した範囲の名前のシートを作成し、
なおかつその内容は「マスタ」というシートをコピーする。というマクロを作ったのですが、うまくいきません。
名前のシートを作成するのみならばうまくいくのですが、内容をコピーしようとすると、逆順になり、空白のシートが挿入されます。
最終的には降順（名称にはNo.があります）になり、空白のシートが挿入されないようにしたいです

どうしたらうまくいくのでしょうか？

====
Sub 連続シート作成()
For Each 対象セル In Selection
Sheets.Add After:=ActiveSheet
Sheets("マスタ").Copy After:=Sheets("マスタ")
ActiveSheet.Name = 対象セル.Value
Next 対象セル
End Sub

No.1 ベストアンサー 回答者： watabe007 回答日時： 2014/10/18 14:31

これでは？

Sub 連続シート作成()
　　For Each 対象セル In Selection
　　　　Sheets("マスタ").Copy After:=ActiveSheet
　　　　ActiveSheet.Name = 対象セル.Value
　　Next 対象セル
End Sub

この回答へのお礼

無事に解決しました。
ありがとうございました。

お礼日時：2014/10/18 15:18