今度は複数のシートを同時に追加挿入します。

　コマンドボタンを1つ追加して、コマンドボタンのオブジェクト名を「sheet_add2」に変更。
それとCaptionを「ワークシート2枚を同時に追加」というように変更をしました。

次もコードは簡単。

Worksheets．Add　Count：=2

この1行を書くだけです。 「2」テキストボックスの値で指定しても構わないし、数値を入れてもOKです。

うまくシートが複数挿入されればOKです。