大量のシートを手で追加するのが面倒なときに使用する
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
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