回答編集履歴
1
コード追記
answer
CHANGED
@@ -1,4 +1,11 @@
|
|
1
1
|
```diff
|
2
2
|
- Worksheet.Add After:=Worksheets(Worksheets.Count).Name = sheet_name
|
3
3
|
+ Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = sheet_name
|
4
|
+
```
|
5
|
+
|
6
|
+
上記の修正でいいのですが、追加と名前変更を1行で記述するのは読みづらいので、下記のように分けた方が分かり安いかもしれません。
|
7
|
+
|
8
|
+
```vba
|
9
|
+
Worksheets.Add After:=Worksheets(Worksheets.Count)
|
10
|
+
ActiveSheet.Name = sheet_name
|
4
11
|
```
|