Excelにシート追加マクロ

大量のシートを手で追加するのが面倒なときに使用する

Sub Macro2()


'
Dim sheet As Worksheet
Dim index As Long

Dim namename As String
Dim names() As String

namename = "name1,name2,name3"
names = Split(namename, ",")

For index = UBound(names) To 0 Step -1
Set sheet = Sheets.Add
sheet.Name = names(index)
Next

End Sub