シート連続追加マクロ

■作成手順
(1)シート名一覧を１シートに記述
(2)シート名を選択し、以下マクロを実行

Sub 連続シート挿入()
    For Each 対象セル In Selection
        Sheets.Add after:=ActiveSheet
        ActiveSheet.Name = 対象セル.Value
    Next 対象セル
End Sub　

■参考
http://pc.nikkeibp.co.jp/article/knowhow/20090811/1017747/?rt=nocnt