複数のシート追加と同時にシート名を設定をする。

複数シート追加と同時に追加されたシート名を変更するには、追加したいシートの分だけループ処理でシート追加とシート名設定の処理をすることになります。

ループ処理で順次設定させている理由としてはAddメソッドの引数であるCountを利用した場合、最後に追加されたシートだけがActiveな状態となるので追加と同時にシート名を設定するには、その状態で名称を設定する必要があります。

'******************************************************************
'　複数シートの追加＋名称設定を同時に実行
'******************************************************************
Sub setShtNameAdd()
    
    '追加したいシート数を設定する
    Dim iAddCnt As Integer
    iAddCnt = 5
    
    '追加と名称設定をループ処理で実行する
    Dim i As Long
    For i = 1 To iAddCnt
        'シート追加
        Sheets.Add After:=Sheets(Sheets.Count)
        'シート名を設定
        ActiveSheet.Name = "Add-" & i
    Next

End Sub

　■実行結果