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

質問

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

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

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

回答No.1

watabe007 · ベストアンサー

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

お礼

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