さて次は、前回と同じように新しいブックを作るのですが、今度はシート数を指定した数分だけ作れるようにします。
まずは下準備ですが、前回同様、フォームにコマンドボタンを1つ貼り付けましょう。
　貼り付けたら、コマンドボタンのオブジェクト名を「book_add」 とでも変更しましょう。
それとCaptionを「ワークブックの追加」というように変更をしました。
ここまでは前回と同じです。そしてコマンドボタンにコードを記入しますよ。

ポイントは、Excelファイルの中の「ツール」→「オプション」→「全般」→「新しいブックのシート数」の数字を変更させることになりますので、本来のシート数を変数に格納しておいてから、新しいシート数に変更して、新しいブックを作り、作った後には、もう一度、本来のシート数に戻すというところがポイントです。
Application.SheetsInNewWorkbook = 5
この記述でシート数は変更できますが、この記述だけで終わらせると次回もまたこのシート数になってしまうので、不都合が出てきます。

そこで変数に本来のシート枚数を格納することをお勧めします。