回答編集履歴
1
追記
answer
CHANGED
|
@@ -6,7 +6,9 @@
|
|
|
6
6
|
```VBA
|
|
7
7
|
On Error Resume Next
|
|
8
8
|
Worksheets("シート名").Select
|
|
9
|
+
'Application.DisplayAlerts = False
|
|
9
10
|
ActiveSheet.Delete
|
|
11
|
+
Application.DisplayAlerts = True
|
|
10
12
|
On Error GoTo 0
|
|
11
13
|
Sheets.Add
|
|
12
14
|
ActiveSheet.Name = "シート名"
|