ワークシートの追加（Add メソッド）

ワークシートを追加するには Worksheets コレクションの Add メソッドを使用します。ワークシートを挿入する位置は Before または After のどちらかの引数で指定することができます。引数 Before および After を両方省略すると一番左端にシートが追加されます。

Add メソッドの使用方法

Worksheets.Add( [Before] [, After] [, Count] [, Type] )

 ワークシートの削除

Add メソッドの使用例

ワークシートを複数枚追加

アクティブワークブックへワークシートを追加する例です。引数 After, Count を指定して左から2番目にワークシートを2枚追加しています。

Sub sample_eb073_01()
    '左から2番目にシートを2枚追加
    Worksheets.Add After:=Worksheets(1), Count:=2
End Sub

ワークシートを追加と同時にシート名変更

一番右端へワークシートを追加し、シート名やフォントなどのプロパティを変更する例です。

Sub sample_eb073_02()
    Dim mySheet     As Worksheet

    'シートを追加し、その追加したシートの参照を変数へ設定
    Set mySheet = _
        Worksheets.Add(After:=Worksheets(Worksheets.Count))

    With mySheet
        .Name = "DDD"   '追加したシートの名前を変更

        'セルのフォント名とフォントサイズを変更
        With .Cells.Font
            .Name = "MS ｺﾞｼｯｸ"
            .Size = 9
        End With

        .Range("A1").Value = "テスト"
    End With
End Sub

 Setステートメント セル書式（フォント） Withステートメント

セルのフォント名、フォントサイズも変更されてます。

参考

sample_eb073_02 では追加したシートの参照を変数 mySheet へ一旦保存しましたが、この変数を使用せず以下のように記述することができます。できるだけ変数の数を少なくしたい場合はこの方法で記述するとよいでしょう。

Sub sample_eb073_03()
    'シートの追加とプロパティの変更
    With Worksheets.Add(After:=Worksheets(Worksheets.Count))
        .Name = "DDD"   '追加したシートの名前を変更

        'セルのフォント名とフォントサイズを変更
        With .Cells.Font
            .Name = "MS ｺﾞｼｯｸ"
            .Size = 9
        End With

        .Range("A1").Value = "テスト"
    End With
End Sub

 セル書式（フォント） Withステートメント